($a*=36)+=ord   # 13 chars
$a=$a*36+ord    # 12 chars