Select Code to Download

#!/usr/bin/perl -l

...
  }

print "failed to find solution in $steps steps\n";

answer in 35 steps

...
331222

diagonal  411132