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