in reply to Re: match only last character of a kind
in thread match only last character of a kind

Or just: 
use File::Basename;
my $dir = dirname $path;
print "The directory is: $dir\n";

[download]

In Section Seekers of Perl Wisdom