#!/usr/bin/perl
$|=1;@_=split//,"Lhnvx\%Utes Drjuw \@uptwif";for(0..$#_){
join("",splice(@_,0,$_+1))=~/(.*)/;print"\r$1";splice@_
,0,0,split(//,$1);print$_[$_]=chr(ord($_[$_])^($_%8))while
++$_<=$#_;select(undef,undef,undef,0.25);}print"\n";