#!perl -pl $_.=$".(/r/?eat:boo)