Have a look at File::Basename (in the standard distribution) before hacking away with regexs, problably it does something you want.

Hope this helps, -gjb-