#!/usr/bin/awk -f
BEGIN{RS="<hr />"; FS="<[/]?b>"}
/<p>em [0-9]/{
	print " <comentario>\n  <quando>" substr($0,8,19) "</quando>\n  <quem>" $2 "</quem>"
	sub("^.* disse:</p><p>",""); sub("</p>$",""); gsub("</p><p>","<br />"); sub("<br />$","");
	print "  <mensagem>" $0 "</mensagem>\n </comentario>"
}