#!/usr/bin/perl -w

use strict;
use HTML::Parser;

my $tagged_string = "<string>text<other tag>more text...\nstring</string>another string<string tag>";

my $replace = 'string';

my $parser = HTML::Parser->new(api_version => 3,
                               default_h => [sub {print shift}, 'text'],
                               text_h    => [\&text, 'dtext']);

$parser->parse($tagged_string);

sub text
{
  my ( $text ) = @_;

  $text =~ s%\b($replace)\b%<b>$1</b>%sg;
  print $text;
}