($x,$y)=glob for<>; $\=$/;$,=$"; print 4; print$x-1,$y; print$x+1,$y; print$x,$y-1; print$x,$y+1;