##
#!/usr/bin/perl
use URI::Heuristic qw(uf_uristr);
use strict;
my $url;
my $input = "perlmonks";
#my $input = "www.perlmonks.com";
if ($input =~ /^) {
$input =~ /.*<\/a>/i;
$url = uf_uristr("$1");
} else {
$url = uf_uristr("$input");
}
print "$url";