$text = "Илл. 5. Введение.png" & @CRLF & _
"Илл. 5.1. Один.png" & @CRLF & _
"Илл. 9.1.0. Два.png" & @CRLF & _
"Илл. 9.1.10. Три.png" & @CRLF & _
"Илл. 12.12.100. Четыре.png"
$pattern = "(?smi)^.*? (.*?)\. (.*?)\.png"
$res = StringRegExpReplace($text, $pattern, "$1"&@CRLF&"$2")
MsgBox(0,"",$res)