$i=@p=split//,<>;print$"x$i."@p[$i..$#p]".$"x$i,$/while $i--