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