this one uses the output of perl -v to create it's output, only tested with perl 5.6.0 on i386-linux.

$_=`perl -v`;s/\n/ /gs;s/./lc/eg;@w=(split/\s+?/)[15,16,
20,25,26,27,28,39,47,66,67,42,73];@r=map{join "",(split
 //,$w[$i++])[@$_]} ([2],[1],[0],[0], [4],[0],[0,1,2],[2],
[0,1,2,3],[0,1],[1],[0],[5,6]);@o=map{s/^(.)/\U$1/;$_}
map{join"",@r[@$_]}([0..2],[3..7],[8],[9..12]);print "@o";
[download]