#!perl -pl
$_.=$".(-$.&4?eat:boo)