#!perl -p
s/$/$".(-$.&4?eat:boo)/e