で、つぎのお知恵を拝借、、、。

print SHTM <<EOF;
<TABLE border=1 cellspacing=7 cellpadding=3 width=95% bgcolor="$FOX->{$GBA->{FORM}->{bbs}}->{"BBS_THREAD_COLOR"}" align=center><TR><TD><DL><a name="\$ANCOR"></a><DIV ALIGN="right"><a href ="#menu">■</a><a href="#\$FRONT">▲</a><a href="#\$NEXT">▼</a></DIV><B>【\$ANCOR:$GBA->{DATNUM}】<FONT size=5 color="$FOX->{$GBA->{FORM}->{bbs}}->{'BBS_SUBJECT_COLOR'}">$subject</FONT></B>
EOF

といった行が、それこそ死ぬほどあるわけですが、
こいつらの保守性を少しでもよくする方法は、何かないのかなと。

qq// とかにしようかなとも思ったのですが、/ も使っているわけで、
何かいい知恵はないものなのかなと。