use URI::Find; find_uris($text, sub { my($uri, $orig_uri) = @_; return qq|$orig_uri|; });