Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
...
 print qq{B: match, captured '$1'} if $s =~ m{ ($my_ip) }xms;
"
A: match, captured '56.4.32.123'