$file = "myfile.txt";
open (FILE,"$file") || die $!;
while (<FILE>) {
s/^(N\d+ )?/N$. /;
  }
     continue {
     print; 
  }