Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
printf "\n%s =>\n    %s\n", $whole, (join qq(\n    ), @bits );

__END__

Select or download this

http://yahoo.co.uk/notfound.html                   => yahoo.co.uk
http://yahoo.co.uk:80/notfound.html?fn=john&ln=doe => yahoo.co.uk
...
    notfound.html?fn=john&ln=doe
    notfound.html
    fn=john&ln=doe