$zipfile =~ /(?:A|B)FILE_(\d+)/;
$day = $1;

##</code><code>##

$zipfile =~ /[AB]FILE_(\d+)/;
$day = $1;

##</code><code>##

($day) = $zipfile =~ /[AB]FILE_(\d+)/;