#!perl -ln0
s/Y/print pos/ge