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


##</code><code>##

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


##</code><code>##

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

print q qhelloq;  # hello
print qqhelloq;   # qqhelloq


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/