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