#!/usr/bin/perl -w

my $bbl;
{
  local $/;
  $bbl = <>;
}

for ($bbl) {
  s!\\begin\{thebibliography\}\{[A-Za-z0-9]+\}!<dl>!;
  s!\\end\{thebibliography\}!</dd></dl>!;
  s!\\bibitem\[([A-Za-z0-9]+)\]\{[^}]+\}!</dd><dt><b>[$1]</b></dt><dd>!g;
  s!<dl>\s*</dd>!<dl>!;
  s!~!&nbsp;!g;
  s!\s*\\newblock! !g;
  s!\{\\em\s([^}]+)\}!<em>$1</em>!g;
  s!--!-!g;
}

print $bbl;