$title =~ s/\b$_\b//gsi;

##</code><code>##

   $title =~ s/(^|[%\d])$_([%\d]|$)/$1$2/gsi;