foreach (@words) {
  $line =~ s/\b$_\b//g;
  print "$line\n";
}