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