#!/usr/bin/perl
use Curses;$l.=<DATA>;$i=pack("h*","$l");initscr;refresh;
qwer("$i");$_=$i;$_=~y.[a-z].0.d;s.\s+?..g;chomp;
addstr 1,49,"$_ me!";refresh;endwin;exit(0);nodelay 1;
sub qwer{$_=shift;$c=0;while($c!=length){map{addstr$c,$c,$_;
move$c,$c;select undef,undef,undef,0.050;refresh;$c++;}split//;}};;;
__DATA__
a45737470214e6f64786562702055627c602841636b65627