http://www.perlmonks.org?node_id=297398


in reply to Re: Goofy leaping ninja stickmen
in thread Goofy leaping ninja stickmen

++ for pointing out that select can be used this way; I had thought it had to do with filehandles, and had not realised this use for it.

As for the rest of your improvements... well, I'll have to look at those when I have more time.

update: I've looked at them now, and they all seem pretty straightforward; you just did a more thorough job of golfing than I.


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