print grep {length > 15} map {s/\s+//g; "$_\n"} @fields;