Select Code to Download

$foo = "bar";
print $foo, "\n";

print($foo,"\n");

($a,$b,$c) = (1,2,3);    # started off easy
                         # does the expected

$a,$b,$c = (1,2,3);      # left side acts weird

$a,$b,$c = 1,2,3;

print(1),print(2),print("\n");

# output
# 12          - followed by newlin

print 1;
print 2;
print "\n";

print 1, print 2, print "\n";

# output
[blankline]
2111

print(1),print(2),print("\n");