perl -e '$_=shift;X while s/\\text(i|b)[tf]\{([^{}]*)\}/<$1>$2<\/$1>/g
+;print;' 'abc abc abc \textit{abc abc} abc \textit{abc abc \textbf{ab
+c \textbf{abc abc} abc} abc} abc.'
[download]