$ perl -MO=Deparse -e 'print cat dog'
print 'dog'->cat;
-e syntax OK
$ perl -MO=Deparse -e 'print reverse cat dog'
print reverse('dog'->cat);
-e syntax OK