c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use Regexp::Common qw /net/;
 ;;
 my $records = [ qw(1.2.3.4  12.23.34.45  9.9.9  x.x.x.x  anything) ];
 ;;
 my @temp = grep { $_ =~ $RE{net}{IPv4} } @$records;
 dd \@temp;
"
["1.2.3.4", "12.23.34.45"]