Select Code to Download

foreach my $file (@filelist) {
   push(@curr, $1) if $file =~ /^(FRAUD-REPORT\d+\.CSV)$/i;
}

foreach my $file (@filelist) {
   push(@curr, $file) if $file =~ /^FRAUD-REPORT\d+\.CSV$/i;
}

my @curr = grep /^FRAUD-REPORT\d+\.CSV$/, @filelist;