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