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{abc \textbf{abc abc} abc} abc} abc.'