http://www.perlmonks.org?node_id=1081035


in reply to Parsing Pathnames

use Path::Tiny qw/ path /;
print path( qw[ /ro/sham/bo ] )->basename;
__END__
bo

[download]

In Section Seekers of Perl Wisdom