Select Code to Download

use strict;
use warnings;
...
for my $file (@files) {
  print ((split /\./, $file)[-1] . "\n") ;
}