# ...
        length $r or ($r = rand) =~ tr/3-9//cd;
# ...