'print "$_: "; s/foo/bar/ if <STDIN> =~ /^y/i'