$ perl -MO=Deparse,-q,-p -e 'print +(1,2,3)[1];'
print(((1, 2, 3))[1]);
-e syntax OK
$ perl -MO=Deparse,-q,-p -e 'print( (1,2,3)[1] );'
print(((1, 2, 3))[1]);
-e syntax OK