あとちょっとで5行に入れそうなんだけど
もうやめようっと… ヽ(`Д´)ﾉ

sub u{@b[$l,$k]=@_}sub v{$b[$v=$_[0]]}sub w{'.'eq&v}$y=$c=0;$l=12;$k=19;@n=(-1,
11,-11,1,1,-11);$o="#"x10 ."\n";$m="."x8;@b=split"",$o.("#$m#\n"x8).$o;while(){
u"P","E";print($b=join("",@b)."YOU:$y\nCOM:$c\n");exit if$l==$k||$b!~/\./;u" ",
" ";$m=<>%5||exit;$y++if'#'ne v($l+$n[$m-1])&&w$l=$v;w($k=int rand 4<3&&(w$k-1
or w$k+1or w$k-11or w$k+11)?$v:$k+(v($k+($d=$n[int rand 6]))eq'#'?-$d:$d))&&$c
++if$l!=$k}