$/=($h,$w)=glob<>;$_=<>x++$w;print/R((
|.{$w})\.)*(?2)#/s?(($z=$+[1]-1)/$w%$h+1,$",$z%$w+1):loop