I have inherited copious amounts of badly written Perl. Great strides toward readability have been made thanks to vi and perltidy, but the code is still far from readable. Are there more tools like perltidy? Specifically, I want to convert this: 
$display .= "<tr><td><p><font size=-1>Markup</p></td><td><p><input typ
+e=text name=markup size=25 maxlength=100 value=\"$markup\"></p></td><
+/tr>\n";
$display .= "<tr><td><p><font size=-1>Price</p></td><td><p><input type
+=text name=price size=25 maxlength=100 value=\"$price\"></p></td></tr
+>\n";

...and so on for dozens of lines

[download]
into a nice HereDoc (and eventually into templates). My plan is to write a script to be called from within vi to reformat specific blocks of code, but I would like to avoid re-inventing the wheel if I can benefit from the wisdom of fellow monks. Barring a nice tool for this, what's the best plan of attack? Tips on rewriting long and nested if/else chains are also welcome.

In reply to Cleanup tools (auto HereDoc?) by garrison

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.