Select Code to Download

use strict;
use warnings;
...
And another
Web site: http://another.example.com/ (doesn't always work)
Nice blog here: http://blog.example.com/niceblog/

sub {
    my $u = URI->new( $_[0] );
    return sprintf( '<a href="%s">%s%s</a>', $u, $u->host, $u->path );
}