perl -le '$_ = "a"; print length . '' ? "A" : "B" '

##</code><code>##

 1:34 >perl -le "$_ = 'a'; print length . '' ? 'A' : 'B'"
A

 1:34 >