perl -pe'BEGIN{$i=$j=ord$/}$_=($i--||exit).chr$j' </dev/urandom