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