$a = "Programming SUCKS!!!!";

$a=join('',map{/\D/?$_:chr$_/2}split m#${\(2+6/2)}#
,$a.do{$,=undef;local$/;$_=<DATA>;s/\s//g;$_});$|++
;for(0..length$a){print substr($a,0,$_);select($,,
$,,$,,1/5);print"\015"," "x59,"\015"}print$/;

__DATA__
5165645165165645165165645165165645165126
512656451465645194523052305234522852025
645242522252345645224522852225206522851
945218521852105220520656452085194523252
025230564524252225234564523252225222592
[download]