if ( $zipfile  =~ m/[AB]FILE_(\d+)/ ) { 
       $day = $1;
    }
    else {
       # oops.. the file name is not what we expected ..
       # panic !!
    }