#!perl -p0 s/\n/ /g;s/y/yes/g;