in reply to A better regex

Try the regex 
$day = $1 
if $zipfile  =~ m/[AB]FILE_(\d+)/;

[download]

-Mark

In Section Seekers of Perl Wisdom