Добавить перенос строки в заданном месте

Local $sText = FileRead(@ScriptDir & "\test.txt")
;66. Вопрос:
Local $sPattern = '.*?\d\.\h[А-яЁё]'
$sText = StringReplace($sText, $sPattern, @CR & $sPattern)
$sText = StringReplace($sText, $sPattern, @LF & $sPattern)

FileWrite(@ScriptDir & "\new.txt", $sText )

$sFile = @ScriptDir & '\Test.txt'
$sText = FileRead($sFile)
$sText = StringRegExpReplace($sText, '(\d{3}\.\h*Вопрос)', @CRLF & '$1')
ConsoleWrite($sText & @LF)
;~ $hFile = FileOpen($sFile, 2)
;~ FileWrite($hFile, $sText)
;~ FileClose($hFile)