↑最後の最後で間違った、鬱だ・・・

$w="#";$d=".";$s=" ";$o=$w x10;$m=$d x8;$b="$o\n";for($c=0;$c<8;$c++){$b.="$w".
"$m$w\n";}$b.="$o\n";$y=$c=0;$l=12;$k=19;P:while($b=~/[$d]+/og){substr($b,$l,1,
"P");substr($b,$k,1,"E");print$b;print"YOU:$y\n";print"COM:$c\n";substr($b,$l,1
,$s);substr($b,$k,1,$s);$m=<>;chop$m;if($m==1){$i=substr($b,--$l,1);$l++if($i
eq$w);}if($m==2){$l+=11if($l<87);}if($m==3){$l-=11if($l>19);}if($m==4){$i=
substr($b,++$l,1);$l--if($i eq$w);}last P if($m eq"e");$i=substr($b,$l,1);$y++
if($i eq$d);last P if($i eq"E");$r=int(rand(4));if($r<3){if(substr($b,$v=$k-1,1
)eq$d){$k=$v;}else{if(substr($b,$v=$k+1,1)eq$d){$k=$v;}else{if(substr($b,$v=$k-
11,1)eq$d){$k=$v;}else{if(substr($b,$k+=11,1)ne$d){$k-=11;$r=3;}}}}}if($r==3){
$m=int(rand(6));if($m>=4){$i=substr($b,--$k,1);$k+=2if($i eq$w);}elsif($m<=3&&
$m>=2){if($k>=86){$k-=11;}else{$k+=11;}}elsif($m==1){if($k<=19){$k+=11;}else{$k
-=11;}}elsif($m==0){$i=substr($b,++$k,1);$k-=2if($i eq$w);}}$i=substr($b,$k,1);
$c++if($i eq$d);last P if($i eq"P");}