$ perl -MO=Deparse,-p junk
use constant ('non_commutative', 17);
use warnings;
($x = 170);
($y = 170);
print("$x\n$y\n\n");
($x = 27);
($y = 27);
print("$x\n$y\n");
junk syntax OK