Help for this page

Select Code to Download


  1. or download this
    @array = ( "foo bar", "bar foo" );     
@array2 = ( "foo", "bar" );     
...
$string =~ s/($swapString)/<B>$1<\/B>/gi;

print "string after first - $string\n";
  2. or download this
    $swapString = join ("|", @array2);
print "swapString 2 - [$swapString]\n";
$string =~ s/[^<B>]($swapString)[^<\/B>]/<B>$1<\/B>/gi; 

print "string after first - $string\n";
  3. or download this
    $string =~ s/[^<B>]($swapString)[^<\/B>]/<B>$1<\/B>/gi;