I don't actually recommend this, but the following produces runnable, tight(er) code:

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

At least it did on my test script... YMMV. But seriously, I don't recommend this. I just did it for shytes and grins.