There is a module called File::Split, but unfortunately it depends on Array::Dissect which has been withdrawn from CPAN (as noted in this bug). The source for File::Split is still available, which is convenient if you want to write your own.