http://qs321.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; }
Should do it. (or some re like that.)

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