Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $uri = ('URI'->new($string)->path_segments)[-1];
    is $uri, $expect{$string};
}