Select Code to Download

print ($foo & 255) + 1, "\n";

1 + 1, "\n";    # Obviously not what you meant.

print(($foo & 255) + 1, "\n");

$ perl -MO=Deparse,-p -e 'print (4-1) + 2+3 * (2*2);'
((print(3) + 2) + 12);