while (<$FILES>) {
   s/^\s+//; s/\+s$//;
   ...
}