programming-examples/perl/Statement/Use while loop to read console input and replace.pl

while (<>) {
   for (split) {
       s/m/y/g;
       print;
   }
}
while ($_ = <>) {
   for $_ (split / /, $_) {
       $_ =~ s/m/y/g;
       print $_;
   }
}