s/oh/Ohio/g into Perl.

##</code><code>##

while (<>){
s/oh/Ohio/g;
}