$! = rand(7); print("In numeric context it's ". ($!+0)." but in string context it's " . $! . $/); #### sub listop { my @result; for (@_) { push @result, "".$_; } @result; } #### $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/