Find.pm

package BMT::URI::Find;
use parent 'URI::Find';
use Regexp::Common qw/balanced/;

# subclass of URI::Find to handle URIs like:
#
#   http://en.wikipedia.org/wiki/Scala_(programming_language)
#
sub decruft {
    my ( $self, $orig_match ) = @_;

    my @parts = split /($RE{balanced}{-parens=>'()[]'})/, $orig_match, -1;

    my $decrufted = $self->SUPER::decruft(pop @parts);

    return join '', @parts, $decrufted;
}

1;