#!/usr/bin/perl
sub f{$n=$g{$_[0]};for(0..19){$f->[($_-($x=$_%4))/4][$x+$o]=$n%2
;$n/=2};$o+=5}@g{@a=split'','jasp another perl hacker'}=1;@g{sort
keys%g}=unpack'a6'x14,'0000006306794304864013026284974147983402'
.'77987409629173432534071574070039493086926322';f$_ for@a;print
join'',(map$_?"\e[7m \e[27m":$a[++$i>23?$i=0:$i],@$_),$/for@$f
[download]

I did have a full alphabet in at one stage so that it took command line args as an alternative, but the ms weren't much use, so I restricted it to this