Select Code to Download

print //;       # prints 1, scalar return val of match null in $_ (alw
+ays true)
print \//;      # SCALAR(0x....)
...

print  \\//   /   \\\//
       ref   div   ref

$a = \1; # first ref in lower mem
$b = \1; # second ref in slightly higher mem 
print $b/$a;

# prints 1.00000684833673