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