#!/usr/bin/perl -l

use strict;
use warnings;
use URI;

for (
   'http://www.foo.com/bar/foobar/bar.html',
   'http://www.foo.com/bar/foobar/',
   'http://www.foo.com/bar/foobar',
   'http://www.foo.com/bar/',
   'http://www.foo.com/bar',
) {
   my $uri  = URI->new($_);
   my $path = $uri->path;
   my @part = split('\/',$path);  # use File::Basename here for portability

   print "$_: ", ($part[-1] eq 'bar') ? 'yes' : 'no';
}