Поиск-Замена текста в .txt

#include <File.au3>
$File = @ScriptDir&"\test.txt"
_FileWriteToLine($File, 2, "Глаша сидела дома и ела варенье", 1)

$sPath = 'text.txt'
$sTextOld1 = 'Маша'
$sTextOld2 = 'каша'
$sTextNew1 = 'Глаша'
$sTextNew2 = 'Варенье'

$hFile = FileOpen($sPath, 0)
$sText = FileRead($hFile)
FileClose($hFile)

$sText = StringReplace($sText, $sTextOld1, $sTextNew1)
$sText = StringReplace($sText, $sTextOld2, $sTextNew2)

$hFile = FileOpen($sPath, 2)
$sText = FileWrite($hFile, $sText)
FileClose($hFile)

$s = 'Title="пример"'
$w = 'слово'
$n = StringRegExpReplace($s, 'Title=".*?"', 'Title="' & $w & '"')
ConsoleWrite($n & @CRLF)