~/test/uri-find(IDNA|✔)$ perl -e'use Data::Dumper;BEGIN{unshift @INC,"./lib";}use URI::Find;my @uris;my $finder = URI::Find->new(sub {my($uri) = shift;push @uris, $uri;});my $text="das ist http://höhö.example/bianca dbdf";$finder->find(\$text);print Dumper \@uris;'
$VAR1 = [
          bless( [
                   bless( do{\(my $o = 'http://xn--hh-xeab6dc.example/bianca')}, 'URI::http' ),
                   undef
                 ], 'URI::URL' )
        ];