# example 4

while($line = <STDIN>)
{
   $line =~ s/time/money/ig ;
   print $line;
}