Help for this page
perl -MO=Deparse,-p -e 'sub x {return (1,2)} @c=x()||(1,2);@d=x() or ( +1,2);' sub x { ... } (@c = (x() || (1, 2))); ((@d = x()) or ('???', '???'));