c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
 ;;
 print qq{matches IP of '$1'}
   if '99999.1.2.9999' =~ m{ ($RE{net}{IPv4}) }xms;
"
matches IP of '99.1.2.99'