Select Code to Download

my @files = map { my $s = $_; $s =~ s/^\s+//; $s =~ s/\+s$//; $s }
            <$FILES>;

my @files = map { my $s = $_; for ($s) { s/^\s+//; s/\+s$//; } $s }
            <$FILES>;

my @files = <$FILES>;
for (@files) { s/^\s+//; s/\+s$//; }

use List::MoreUtils qw( apply );
my @files = apply { s/^\s+//; s/\+s$//; } <$FILES>;

use Algorithm::Loops qw( Filter );
my @files = Filter { s/^\s+//; s/\+s$//; } <$FILES>;

while (<$FILES>) {
   s/^\s+//; s/\+s$//;
   ...
}