See perldoc File::Basename; one of fileparse or basename might be what you're looking for (although you've still got a somewhat vague problem statement there).