sub Text2HTML {
    my $s = shift;
    my $p;
    my $m;
    my $r;
    my $mcd = new Text::DelimMatch '"';

    if ($s) {
	$s =~ s/&/&amp\;/g;
	$s =~ s/\\\'/&\#39\;/g;
	$s =~ s/</&lt\;/g;
	$s =~ s/>/&gt\;/g;
	$s =~ s/\.\.\./&hellip\;/g;
	$s =~ s/--/&mdash\;/g;
	while ($s =~ /\"/) {
	    ($p,$m,$r) = $mcd->match($s);
	    if ($m) {
		$m =~ /^\"(.*?)\"$/;
		$s = $p.'&ldquo;'.$1.'&rdquo;'.$r;
	    }
	}
    }
    return $s;
}