perl -e '%h=qw/? O " Y ! { S 1/;print chr(oct((ord$_)-22)+oct((ord$h{$
+_})-22))foreach(sort{ord($a)<=>ord($b)}keys%h);$_=$/;print'
[download]