#!perl -p0
for(@s=index$_,".";$y=pop@s;){for$d(-1,1,($w=1-index$_,$"),-$w){$x=$y;$x+=$d,$r=46while${*r=\vec$_,$x+$d,8}-35;@$x=push@s,$x if!@$x}}