in reply to simple regex question

If you use File::Basename, you don't need a regex.

In Section Seekers of Perl Wisdom