Select Code to Download

foreach $file (@array) {
    if ($file =~ /^KL\d{1|2}_/) {
...
        print "$file\n";
    }
}

foreach $file (@array) {
    if ($file =~ /^KL\d+_/) {
...
        print "$file\n";
    }
}