perl -MO=Deparse,-p -e '$a eq "a" || "b" || "c" || "d"'
(((($a eq 'a') or 'b') or 'c') or '???');