#!perl -p s!$!$".(eat,boo)[$%++/4%2]!e