write(gsub("(.*r.* )boo","\\1eat",paste(scan("stdin",""),"boo")),T)