#!/usr/bin/perl -w

                   use strict;
                 $|++;@_=split//,
         "|Just Another Perl Hacker|";
        sub ll{select(undef,undef,undef,
        0.05);}; my @l;$"="";for(0..12){
        ll;splice@l,@l/2, 0,@_[$_,-$_-1]
        ;print' 'x13,"@l\r";};while (1){
        @l=@_;for(0..11){pop@l;shift@l;
        ll;print "\r",' 'x(13+$_)," @l "
        ;};ll;ll;ll;for(reverse 1..12){
        splice@l,-1,0,$_[$_-1];splice@l,
        0,0,$_[-$_-1];ll;print"\r",' 'x(
        13+$_), "@l \b\b\b   ";};ll;ll;
               ll;@_=reverse@_;};