Just As Title Says.
The velocity depends of your computer because i didn't use sleep

#!/usr/bin/perl
use strict;
s qq$"Kvtu$"Bopuifs$"Qfsm$"Ibdlfsq+y+["-|]+[!-{]++s+.+$&0+g,my(@a,$x
,$r)=split//;map{print"\e[H\e[J$/";!$r&&do{$r=int(rand(@a))until$a[
$r]=~/\d/&&$&<$]&&$a[$r]ne$"},$r&&$a[$r]++,$a[$r]>$]and$r=$[;map{$-=
$_,map{print$a[$_]=~/$-/?$a[$_+!$.]:$"}$...$#a+print$/}$...$];
$;++for$...$=**(!$.+!$.+!$.)}$...$=*(!$.+!$.)+$=/(!$.+!$.)-!$.
[download]

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print