Regular Expression Perl

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