Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Substitute I with N and print
while($_= ){
    print if s/I/N/;
}
__DATA__
    S
    B
    I
    N
    J
    K