#!/usr/bin/perl -w

use strict;

sub randchar {
   return  chr int(rand(26)) + 65;
}

while (<DATA>)
{
   s!\w!&randchar!ge;
   print $_;
}
__DATA__
ABCDEFG
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.