{
	$htm = join('',$1,$2,$3,$4);
	while ( my $htm_line = <$FH_IN> ) {
		last if $htm_line =~ m/^\s*<\/DOCUMENT>/i;
		$htm .= $htm_line;
	}
}