Regular Expression Perl

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