Select Code to Download

$! = rand(7);  print("In numeric context it's ".
   ($!+0)." but in string context it's " . $! . $/);

  sub listop {
     my @result;
...
     }
     @result;
  }

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