print 3 . 5;  # 35
print 3.5;    # 3.5

%foo = (bar => "xyzzy")
print "-$foo{bar}-";   # -xyzzy-
print "-$foo {bar}-";  # - {bar}-

$a = 1;
print $a - -5;  # 6
print $a -- 5;  # error

print q qhelloq;  # hello
print qqhelloq;   # qqhelloq