Select Code to Download

               use strict;
           use warnings;my @r;
...
       (z($p+1,@s));}}for(0..80){my
        %r=r($_);$r[$_]=[keys %r];
           };z(0,split(//,<>));

echo ".21.3.74.9.8...1 (snip) 3.9.65.1.42." | sudoku.pl