Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Substitute N with J
while(){
    s/N/J/;
    print;
}
__DATA__
    S B
    B B
    I C
    N C
    J D
    K E