#!/usr/bin/perl -w
use strict; my @a = ("\nr,kcelrPeH an AuJsthotre ");
{ my $a = pop @a; if ( 1 < length $a ) {
push @a, substr($a,0,length($a)/2), 
scalar(reverse substr($a,length($a)/2));
next; } print $a; } continue { redo if @a; }