print NEW "$_\n";

##</code><code>##

print NEW substr($_,5),"\n";