$data = <<'DATA'; foo 1.1.1.1 foo bar 22.22.22.22 bar baz 333.333.333.333 baz DATA foreach($data=~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/g){ push @ips, $_; } print "Foreach now gives:\n"; print "$_\n" for @ips;