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