#!perl -ln0 s/Y/print@-/eg