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