in reply to regular expression

Assuming the filename is in $_: 
s/.*\d//;

[download]
-sauoq
"My two cents aren't worth a dime.";

In Section Seekers of Perl Wisdom