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