in reply to Is there a way more easy?

You could use glob, however it will produce a large list. :)

For example, something like this :-

my $vals = join(',',(0..9,'a'..'z','A'..'Z','_')); say $_ for glob ("{$vals}{$vals}{$vals}");

Replies are listed 'Best First'.
Re^2: Is there a way more easy?
by spadacciniweb (Curate) on Jun 21, 2012 at 08:04 UTC

    No, too many combinations


    (($_="Mzz ojjdloobnf jt uvy5502383")=~y~b-zg2-5c96-81~a-z0-9~s)=~s~~~s; print