perl -le '$_ = "a"; print do { if( length ){ "A" } else{ "B" } };'