s/$Npod/$N$1$n/s for @file;

##</code><code>##

foreach my $line (@file) {
   $line =~ s/$Npod/$N$1$n/s;
}