d:\tmp\pm>perl -MO=Deparse -e "A B C D"
'B'->A('D'->C);
-e syntax OK

d:\tmp\pm>