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


in reply to Re: Finding Usable Nodes in our Cluster
in thread Finding Usable Nodes in our Cluster

Ah, thank you! I'll give it a shot when I get back to the lab. 



C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}

[download]

In Section Cool Uses for Perl