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