1
2

@array = (A..Z);
print $array[rand($#array)];

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;