##
print ("Hello World!\n");
close (FILE);
##
##
/foo/ ? $a += 1 : $a -= 1;
# parses as
(/foo/ ? $a += 1 : $a) -= 1;
# but
$a += /foo/ ? 1 : -1;
# will work as expected.
##
##
$_ = 'foo';
/foo/ ? print "Found foo\n" : print "No foo here\n";
(/foo/) ? print "Found foo\n" : print "No foo here\n";
print /foo/ ? "Found foo\n" : "No foo here\n";
print (/foo/) ? "Found foo\n" : "No foo here\n";