The core File::Basename module may be of assistance. You might also have luck with a regex like the following: $filename =~ s!.*[/\]([^/\]*?)!$1!; I put more stock in the module than in my regex, however.