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

##</code><code>##

 HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)HASH(0x80e4a90)

##</code><code>##

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

##</code><code>##

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