# Perl (133) for Simple Life Game @ CodeIQ
# modified for Perl 5.20 on ideone (1. added "no warnings;" 2. "gefor" -> "ge for")
no warnings;

$n=<>;<>;$/=<>;@a=/./g,s##chr(46^4&6176>>grep!${$a[($x/$/%@a+$_%3-1)*$/%@a+($x+$_/3%3-1)%$/]},0..8,(4)x6).!++$x#ge for($_=<>)x$n;print