Select Code to Download

use strict;
use warnings;
...
    $n %= 10;
}
say substr $out, 0, $w, '' while $out;

..........................................
..............................0...........
...
.................................9....5...
.................................01234....
..........................................

$img  = conv2d( $img, $kernel ) == 1;
$img += 48;
...

push @list, $i
    while first { substr $s, $i += $_, 1, 0 } @checks;

>perl -MList::Util=uniqnum -E "say for uniqnum 1,1,2,1
1
2

>perl -E "say '1121'=~tr/12/12/sr"
121

my $prev = -1;
@list = grep { 
...
    my $y = $_ / $w_ / 3;
    $x + $y * $w
} @list;