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