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