@ary = split //, $string; while ($i < @ary) { print @ary; unshift @ary, pop @ary; $i++; } [download]
In reply to Re: PUZZLED by agoth in thread PUZZLED by Anonymous Monk