in reply to s/\w/random character/g

print int rand 2 ? chr rand(26) + 97 : chr rand(26) + 65
   for split //, <DATA>

[download]

dave

In Section Seekers of Perl Wisdom