Before you look at the code:

1. I suck at obfu. I just ran the code together and made smaller variables. Nothing obfuish about it
2. This will only work on ansi terminals that permit escape codes (clearing screen, sending cursor to home, plus cursor saving/unsaving). So if you get a long scrolling text output with strange characters at the beginning of each line, you're out of luck for this :(

$|++;print"\e[2J\e[H\n\n";{my($o,$t);for(split//,
'Just another perl hacker'){if(int rand 2){$o.=$_;
$t.=' '}else{$o.=' ';$t.=$_;}}print"\e7$o\n$t";
select undef,undef,undef,0.15;print"\e8";redo}
[download]