$zipfile =~ /(A|B)FILE_([0-9]+)/;
$day = $2;

##</code><code>##

$zipfile =~ /([0-9]+)[^0-9]?/;
$day = $1;