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

##</code><code>##

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