Very nice. It seems that I can apply it only to $Q, correct?

print"@ARGV"=~s|.|$_=2+index'temaniowkugrdsXjyüqäxvöpcfzlbh',lc$&;$_
-=1<<($Q=1.45*log);for($O='';--$Q>0;$_/=2){$O.=chr$_%2+45}"$O "|ger
[download]

Does anyone have a list of standard tricks?