$ perl -l - use Path::Tiny qw/ path /; print path( '/anything/you/want' )->basename; __END__ want [download]
In reply to Re: Pattern Matching by Anonymous Monk in thread Pattern Matching by sunil@perl