#!/usr/bin/awk -f BEGIN{RS="
"; FS="<[/]?b>"} /

em [0-9]/{ print " \n " substr($0,8,19) "\n " $2 "" sub("^.* disse:

",""); sub("

$",""); gsub("

","
"); sub("
$",""); print " " $0 "\n " }