perl -MO=Deparse foo.pl| perl -nae 's/\n//g;s/\s+/ /g; print' > foo2.pl