3 + 4 * 7 % 3
qq
$s = '.' x 75;
$i = 3; print $i--;
$y
$x = ''; $y = $x ? "one" : "two"
$z = -f "foo"
@a = (5 ... 9); print join ', ', @a, "\n";
$x
$a = 1; $b = 2; $c = 3; $x = $a ? $b : $c;
$filename = 'testfile'; open(FILE, ">>$filename"); print FILE "Hiya!\n"; close(FILE);