Help for this page
($a.=chr rand 128)=~s/[^\w\d]//while length$a<8;say$a
($a.=chr rand 128)=~s/[^0-9a-zA-Z]//while length$a<8;say$a