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