Re^2: Please find out the mistake in substitution function in the code??

[AnomalousMonk]

Your print OUT if (...) needs something to print.

print will output the value of  $_ localized in the enclosing  while (<IN1>) { ... } loop.

[GotToBTru]

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;
}

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