Select Code to Download

use Data::Dumper;
my @pal_files = glob '*palindromes.csv';
print Dumper(\@pal_files);

for my $file (@pal_files) {
    open my $IN, '<', $file or die "$file: $!\n";
...
        # Process the line...
    }
}

@ARGV = glob '*palindromes.csv';
while (my $line = <>) {
    # Process the line...
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,