$text = join("\n",@material);

for my $phrase (@key_phrases) {
  my $pos = index $text, $phrase;
  if ($pos == -1) { warn "Phrase: $phrase not found\n"; }
  substr($text, $pos, 0) = '<B>';
  substr($text, ($pos+length($phrase)), 0) = '</B>';
}