Try saying this 10 times as quickly as you can...

#!/usr/bin/perl -w
@a=qw(jqy owej yqqf yqwnf c ejwem kh ? cu owej);$a=$a[2].$a[5];
foreach (0, 1, 2, 3, 4, 5, 6, 4, 3, 5, 2, 7){$b.="$a[$_] " if 
$_!=4; $b.="$a[$_] $a " if $_==4;}$b.="\n";foreach (4, 3, 5, 8, 
9, 2, 8, 4, 3, 5, 6, 4, 3, 5, 2){$b.="$a[$_] " if $_!=4; $b.= 
"$a[$_] $a " if $_==4;}$b=~tr/[c-z]/[a-x]/;print "$b\n";
[download]

Jouke Visser, Perl 'Adept'