5 my @drawn = split/[,\s]/, scalar <>;
14 my $remaining = @boards;
17 for my $board (@boards) {
18 $board =~ s/\b$d\b/' ' x length $d/e;
20 || $board =~ /\s{3}.{12}\s{3}.{12}\s{3}.{12}\s{3}.{12}\s{3}/xms) {
26 $board =~ s/(?<=\d)\s+(?=\d)/+/gxms;
28 say eval "$d*($board)";