>perl -wMstrict -le "use Regexp::Common qw(net); ;; my $s = 'host1 dns:192.168.243.30,asdf'; my $IP = qr{ (?