Let's continue. Now it's /^[a-zA-Z^|]$/.

@a=grep/[^mqsvy]/,a..z,A..Z;
$a{$_}=$_ for@a;
for$i(@a){for(@a){
    $a{$i|$_}||="$i | $_";
    $a{$i^$_}||="$i ^ $_";
}}
for$i(@a){for$j(@a){
    $a{$i^$j^$_}||="$i ^ $_ ^ $j"for@a;
}}
exists$a{chr$_}or die"no $_"for 9,10,32..126;
undef$/;
$_=join'',map{
    $b=qw(| ^)[$a{$_}=~/../?$a{$_}=~/\|/:rand 2];
    $c=qw(^ |)[rand 2];
    "s $b$b $a{$_} ${b}e $c "
}reverse<>=~/./gs;
$_.="s || LZ ^ Ea ^ ad ^ L |eee";
s/((\S *){1,79})( |$)/$1\n/g;
s/ //g;
print;
[download]

s||a^C|e^s^^n^e^s^^D|X^e^s||r|e^s||e|e^s||k|e^s^^c^e|s||a|e|s^^h^e|s||
+a^A|e|s^^
l^e^s||r|e|s||e|e^s||P|e|s||a^A|e^s||r|e^s||e|e^s||h|e|s^^t^e^s^^o^e|s
+||n|e|s||
a|e^s||a^A|e^s||t|e|s^^a|r^e|s||u|e^s||J|e^s||a^C|e|s||t|e^s^^n^e|s||i
+|e|s^^r^e
^s||p|e|s||LZ^Ea^ad^L|eee
[download]