Select Code to Download

my($a,$c,$g,@b)=(40,10);$\=$/;for my$r(0..$a){$b
...
$a){print map{$b[$r][$_]} (0..$a)}select $&,$&,
$&,.4}while(&g)

$a=40;$\=$/;@a=0..$a;for$r(@a){$b[$r][$_]
...
$d}{print"\ec",++$g,$\,map{@{$b[$_]},$\}
@a;select$&,$&,$&,.1;redo if&g}

@a=0..40;for$r(@a){$b[$r][$_]=!int rand
...
$_]=$h==3|$h==2&$b[$r][$_]ne$"?0:$"}}@b=
@e;redo}

@a=0..40;$b[$_]=[map{rand 9<1?0:$"}@a]
...
$j>40)&($i^$r||$j^$_)}}$b[$r][$_]=$h==3|
$h==2&$e[$r][$_]ne$"?0:$"}}redo}

my ($a, $c, $g, @b) = (40, 10);
...
} while (&g)

my ($board_size, $random_seed, $generation, @board) = (40, 10);
...
} while (&generate)