use List::Util 'shuffle';

my $all = join q[], grep /^\w$/, map chr, shuffle 0 .. 0x10FFFF;