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