use URI::Find::Schemeless;
use HTML::Entities qw(encode_entities);

my $finder = URI::Find::Schemeless->new
  ( 
    sub {
      my ($uri, $originalUri) = @_;
       
      return q/<a href="/ . encode_entities("$uri") . 
               q/">/ . encode_entities($originalUri) . q/>/;
    }
  );
# ....
my $howManyFound = $finder->find(\$homepage);
print $homepage;