$text =~ s/\x90[^\w]*<\/bugbreak[^>]*>.*?\x9D.*?\x9D(.*?)\x90/translateString($1)/esig

sub translateString {
my $text = shift;
$text =~ s/<[^>]*>//g;
}