Mega Code Archive

 

Categories / Perl / Regular Expression

 

Trio

while (<>) {     tr/i/o/;     print; }