Select Code to Download

foreach $elem (@allfiles){
    if ($elem =~ /[\d\w\s]+\.$filename/){
    #rest of if code
}