The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
from Biblio::Catalog::BibTeX :

sub tex2html {
    my $latex = shift;
    return "" unless defined($latex);

    for ($latex) {
        s/\\textit\{([^{]+)\}/<i>$1<\/i>/g;
        s/\\textbf\{([^{]+)\}/<b>$1<\/b>/g;
        s/\\texttt\{([^{]+)\}/<tt>$1<\/tt>/g;
        s/\\emph{([^{]+)}/<i>$1<\/i>/g;
        s/\\item\b/<li>/g;
        s/\\_/_/g;
        s/\\mbox{([^}]+)}/$1/g;
        s/{\\it\s([^}]+)}/<i>$1<\/i>/g;
        s/\\LaTeX/LaTeX/g;
        s/\\begin{itemize}/<ul>/g;
        s/\\begin{quote}/<blockquote><i>/g;
        s/\\end{quote}/<\/i><\/blockquote>/g;
        s/\\end{itemize}/<\/ul>/g;
        s/[}{]//g;
    }

    return $latex;
}