Mega Code Archive - Perl - Regular Expression - Substitute I with N and print

while($_= <DATA>){ print if s/I/N/; } __DATA__ S B I N J K