Mega Code Archive

 

Categories / Perl / Regular Expression

 

Substitute N with J

while(<DATA>){     s/N/J/;     print; } __DATA__     S B     B B     I C     N C     J D     K E