#!/usr/bin/perl -i.bak

while (<>) {
  s/^(N\d+ )?/N$. /;
}
continue {
  print;
  close ARGV if eof;
}