#!perl -pl
$_.=$".($.%9<5?eat:boo)