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

 1:34 >