in reply to How to seperate directory and file
$ perl -E " use Path::Class; my $path = file(q[/ro/sham/bo.foo]); say +$path->parent; say $path->basename; " \ro\sham bo.foo [download]