Select Code to Download

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

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