The other thing I failed to mention is if you actually want to alter the file and not just dump to the screen, you would want to run 'perl -pi -e'.
Update:jmcnamara msg'ed me and correctly pointed out that my previous regexp didn't work at all, and if it did it would have also created one space for every blank line. :(