in reply to Regex Improvement

Is the [.\w]+ necessary?
Can your filename ever contain any other characters?

In Section Seekers of Perl Wisdom