note
tangent
You could add an inner loop:
<code>
{
$htm = join('',$1,$2,$3,$4);
while ( my $htm_line = <$FH_IN> ) {
last if $htm_line =~ m/^\s*<\/DOCUMENT>/i;
$htm .= $htm_line;
}
}
</code>
Note that you need to escape the '/' in the DOCUMENT tag.
1159748
1159748