Select Code to Download

    my @elements = {'A'..'Z', 0 .. 9 };
    my $i = 0;
    my @regkey;
    while($i++ < 15) { push(@regkey,$elements[rand($#elements + 1)]); 
+}
    print @regkey, "\n";

 HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80
+e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HAS
+H(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a
+90)HASH(0x80e4a90)

    my @elements = ('A'..'Z', 0..9);
    my $regkey = join '', map { $elements[ rand @elements ] } 1..15;

    > However, the re engine in Perl is far more sophisticated and
    > capable of better matches