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