Нахождение последнего конкретного слова в txt

Global $sFile_1 = @ScriptDir & '\1.txt'
Global $sFile_2 = @ScriptDir & '\2.txt'
Global $aSearch[3] = ['утро перпол7', 'день вторпол16', 'вечер вторпол21'] ; Искомые словосочетания
Global $sText_1 = FileRead($sFile_1)
Global $sSearch, $sText_2, $aArray, $hFile

If @error Then Exit 10
For $i = 0 To UBound($aSearch) - 1
	$sSearch &= StringRegExpReplace($aSearch[$i], '([^А-Ё\w\s])', '\\$1') & '|'
Next
$aArray = StringRegExp($sText_1, StringTrimRight($sSearch, 1), 3)
$sText_2 = (@error) ? '' : $aArray[UBound($aArray) - 1]

$hFile = FileOpen($sFile_2, 2 + 512)
If $hFile = -1 Then Exit 20
FileWrite($hFile, $sText_2)
FileClose($hFile)