Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
...
1..12
ok 13 - no warnings
1..13

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