Doh! Thanks for the pointer. Seems this will also fix '0' data:

while (($ch) = splice(@chars, rand(@chars), 1)) { print "$ch"; }
[download]

YuckFoo