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