Help for this page

Select Code to Download

Select or download this

my $range = qr/^
(
...
$)
/x;
print "OK\n" if ($ip =~ /$range/);