my $line = "1.1.1.1 blah 2.2.2.2";
my @ips = $line =~ /\d+\.\d+\.\d+\.\d+/g;