$==<>;print s/./$&x$=/ger x$=for<"{PP,P  ,PP,,}P\n">