I'm no Perl Artist, that's for sure, but I was faced with the same thing when trying to format an obfu. It's tough to just move the source code around and try and make it look nice. I looked for code on PM to help do this, but couldn't find any. But as it turns out, it's not that difficult to roll your own utility to help out.

My solution was to make a script that will take as input a perl source file and a format pattern file. The pattern file is just a text file with with characters and spaces (or black and white pixels, if you will). The script reads in the source and the pattern and it sticks the source into the format of the pattern.

I posted the code in the Snippets Section. You can find it here.

HTH