#!perl -pl $_+=!s/ //g