my $string1 = 'realy long string of html and here is the word long again';
my $string2 = 'long';
                                                                                                    
$string1 =~ s/($string2)/<b>$1<\/b>/g;
                                                                                                    
print "string1:  $string1\n";