Select Code to Download

use warnings;
use strict;
...
for (@files){
    print "$_\n";
}

blah.txt        tpsm.txt        tpsm_10.txt     tpsm_4.txt

test/tpsm_10.txt
test/tpsm_4.txt