#!/usr/bin/perl -w

use strict;

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

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