my @files=`ls AFILE_*zip BFILE_*zip `;

foreach my $zipfile (@files) 
{
    my $day = undef;
    $zipfile  =~ m/AFILE_(\d+)/;
    $zipfile  =~ m/BFILE_($1)/;
    $day = $1;
}
[download]