Help for this page
my $nr = 25; my $n = 5-1; ... print "square3 :-)\n" if (1 x $nr) =~ /^(1+)\1{length($1)-1}$/ +; # this won't work .. but what will?!?!?!