use HTML::Entities qw(encode_entities); use URI::Find; ... my $finder = URI::Find->new # instead of URI::Find::Schemeless ( sub { my ($uri, $originalUri) = @_; return join "", q//, encode_entities($originalUri), q/>/; } ); ...