Code:
while(<>){if($_=~m/(\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b)/){print $1."\n";}}