How to write an efficient Perl script to return the balance change of the string?


Balance Change:

Before:

'abc abc abc \textit{abc abc} abc \textit{abc abc \textbf{abc \textbf{
+abc abc} abc} abc} abc.'<br>
[download]

Later:

'abc abc abc <i>abc abc</i> abc <i>abc abc <b>abc <b>abc abc</b> abc</b> abc</i> abc.'

Tanks;