Nice idea, and you can replace cat if you need to clean up the paste:

    :r!perltidy
    (paste coworker's ugly perl code)
    ctrl-D

and you have nice looking code pasted.