I had to look at that again; of course you're right. But only lines for which the substitution is performed will print. I think that is not exactly what is wanted. Perhaps more like:

while(...) {
  s/.../.../;
  print OUT;
}
[download]

The lines with recognized codes will be corrected; lines without codes will still be copied to the output.