perl -i.bak -ne 's/\s+//g;print' names
perl -i.bak -pe 's/\s+//g;' names