http://qs1969.pair.com?node_id=93922


in reply to Extracting IP addresses from a file...

foreach($data=~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/g){
    push @ips, $1;
}

[download]
Should do it. (or some re like that.) 

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[download]

In Section Seekers of Perl Wisdom