Select Code to Download

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 q qhelloq;  # hello
print qqhelloq;   # qqhelloq

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