Hmm. You know - maybe I'm out in left field here, but why not use a heredoc print instead of doing print after print? If you're just doing dozens of prints one after the other - this is more convenient.

#quick sample of what I have a heredoc doing: 
print FILEHANDLE << "END_DATA";
<TABLE>
<TR>
    <TH COLSPAN="2">
        <A HREF="stuff"><IMG SRC="an_image.gif" BORDER="0" ALT="Hi!"><
+/A>
    </TH>
</TR>
<TR>
    <TH COLSPAN="2">
        $variables{whatever}
    </FONT>
    </TH>
</TR>
<TR>
    <TD VALIGN="top">
    </TD>
    <TH ROWSPAN="2">
        $details<br>
        $moreDetails<br>
    </FONT>
    </TH>
</TR>
<TR>
    <TD>
        $variables{evenMoreDetails}    
    </FONT>
    </TD>
</TR>
<TR>
    
    <TH COLSPAN="2">
        <FORM ACTION="../cgi-bin/some.cgi?somequery" METHOD="POST">
            <INPUT TYPE="HIDDEN" NAME="item" VALUE="$variables{aVariab
+le}">
            Some Text: <INPUT TYPE="TEXT" VALUE=1 NAME="someText" SIZE
+="1">
            <INPUT TYPE="submit" VALUE="Submit">
    </A>    </FORM>
    </FONT>
    </TH>
</TR>
</TABLE>
END_DATA
[download]

It's convenient for me - and millions of executions later, just as good the regular prints - but 10 times lazier.