use URI; use URI::Find; find_uris($description, sub { my ($find_uri, $orig_uri) = @_; my $uri = URI->new( $orig_uri ); $uri = $uri->canonical->as_string; return '' . $uri . ''; });