foreach(loop through each $word in search phrase) {
   $answer =~ s/$word/<b><u>$word<\/u><\/b>/g;
}