in reply to path extraction

Perl already comes with that functionality in the form of fileparse in File::Basename.