Select Code to Download

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

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