Select Code to Download

open FILE, "<$file" || die "Oops $!\n";

print ("Hello World!\n");
close (FILE);

/foo/ ? $a += 1 : $a -= 1;
# parses as
...
# but
$a += /foo/ ? 1 : -1;
# will work as expected.

$_ = 'foo';

...
(/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";