Nothing particularly spectacular here, just code that I use…

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;
}
[download]

hsm