$text =~ s/(&gt;)(?!<\/b>)/<b>$1<\/b>/g;