in reply to simple regex match question

You can use File::Basename 
use File::Basename;
($name,$path,$suffix) = fileparse($fullname,@suffixlist);

[download]

In Section Seekers of Perl Wisdom