七行プログラミング

>うち(v5.6.0)だとちゃんと動いたっす。マップも
>スクリプト内に埋めちゃってても７行で行けるんでは？

エディットしやすさを優先したんですが、
よく見たら埋め込むスペースがありますね。

というわけで、ちょこちょこと無駄を省いて
（代入後再評価できるのど忘れしてた。ジーザス、なんてこった）
マップ込み５行倉庫番でし。

sokoban.pl-----------------------
$p=35;$m='###########..$...._##.$.##.._##..$...._##.$....._##..$########..# '
.' #..##### #....._# ########';@b=(0,0,$s=10,0,-1,0,1,0,-$s,0);while($m=~/\$/
){substr$t=$m,$p,1,'P';for(1..$s){print substr($t,0,$s,"")."\n";}print"\n";if((
$c=substr$m,$d=$p+($v=$b[<>]),1)eq'#'){next;}if($c eq'$'){if(($c=substr$m,$d+$v,
1)=~/#|\$/){next;}substr$m,$d,1,".";substr$m,$d+$v,1,$c eq'_'?'#':'$';}$p=$d;}