Select Code to Download

#!/usr/bin/perl
use strict;
...
if ($str=~$re){print join",",map{$l++.eval"\$$_"}@r} else {print "no s
+olution"}
#print "\n\n",$str;
#print "\n\n",$re;

String (5x5 chess):
_1!0;2!0;3!0;4!0;5!_2!1;3!0;4!0;5!0;0!_3!2;4!1;5!0;0!0;0!_4!3;5!2;0!1;
+0!0;0!_5!4;0!3;0!2;0!1;0!
...
then in next line queen will not be on column "2" or "4" (!2;4!)
and in the line after queen will not be in col "1" or "5" (!1;5!) (dia
+gonal)