($a.=chr rand 128)=~s/[^0-9a-zA-Z]//while length$a<8;say$a