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