Mega Code Archive
Categories
/
Perl
/
Regular Expression
Troi
while (<>) { tr/o/i/; print; }