# URI::Find line 124
#    $$r_text =~ s{(<$uriRe>|$uriRe)}{ # OLD
    $$r_text =~ s{(<$uriRe>|$uriRe)(?![^<]*[>\Z])}{ # NEW

# Email::Find line 59
#    $$r_text =~ s{($Addr_spec_re)}{ # OLD
    $$r_text =~ s{($Addr_spec_re)(?![^<]*[>\Z])}{ # NEW