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