from Biblio::Catalog::BibTeX : sub tex2html { my $latex = shift; return "" unless defined($latex); for ($latex) { s/\\textit\{([^{]+)\}/$1<\/i>/g; s/\\textbf\{([^{]+)\}/$1<\/b>/g; s/\\texttt\{([^{]+)\}/$1<\/tt>/g; s/\\emph{([^{]+)}/$1<\/i>/g; s/\\item\b/
  • /g; s/\\_/_/g; s/\\mbox{([^}]+)}/$1/g; s/{\\it\s([^}]+)}/$1<\/i>/g; s/\\LaTeX/LaTeX/g; s/\\begin{itemize}/
      /g; s/\\begin{quote}/
      /g; s/\\end{quote}/<\/i><\/blockquote>/g; s/\\end{itemize}/<\/ul>/g; s/[}{]//g; } return $latex; }