#@a = split //, 
# 'Juste re ha .eht'.
# 'r P  kc l  rona ';

@a = ('J','u','s','t','e',' ','r','e',' ','h','a',' ','.','e','h','t','r',' ','P',' ',' ','k','c',' ','l',' ',' ','r','o','n','a',' ');

for($n=1;$i<4;){
#    y/if/f/ unless@a;
    do {
        @a=reverse @a;
        sleep $n
    } if fork;
    splice @a, @a/2;
    $n*=2;
    #goto P;
# P:
    print shift @a;
    $i++
}

#goto P if
#truncate STDERR,
#fileno STDERR%
#ord STDERR;