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

##</code><code>##

print($foo,"\n");

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

# output
# 12          - followed by newlin

##</code><code>##

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

##</code><code>##

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

# output
[blankline]
2111

##</code><code>##

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