ANTICHAT - Показать сообщение отдельно

Цитата:

Сообщение от rubik-nerubik

Кто шарит?)
ваще столько раз сталкивался и не могу разобраться никак)))
есть у кого норм по ней инфа
так к чему я клоню

нужна регулярка, которая выводит по маске, типа есть файл:

1122212121
1212313131
nach192.168.1.1konec
48348348
dffsdfsdfsdfdsf
.ewr.we.r.wer...
nach192.168.1.5konec
werewr34324324
234234

надо бы вывести:
192.168.1.1
192.168.1.5

выручайте)

Код:

#!/usr/bin/perl
$\ = $/;
open(F, "test.txt") or die"$!";;
while(<F>)
 { 
print $1 if(/.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}).*/); 
}
 close F;