Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -Wl
use strict;
...

print for grep /^(?:$my_domain|\/)/, 
          qw[ /sered/uplink /my/projects/ heh/reg http://www.OtherNetw
+ork.org/network/ http://www.localhost.net/hello ];