Perl6 example
Perl6 JAPH:
say [~] (-> @c is copy {gather { while @c[0] { for @c -> {take(.shift)} } } }(['Joec','utrk','shle','te6r',' r .','a h.','nPa.'].map:{[split "",$_]}));
Something tells me that learning Perl6 is going to be an adventure. And totally different from my perl4 to perl5 conversion.
Either that, or I'll be sticking with perl5/ponie for a looong time.
