Here's a version that I ran through perltidy. It's not a lot more comprehensible.

Oops, it's too long. It previewed fine, but it truncated when I hit 'create'.