Traditional 4-line JAPH. I had an idea to play around with modifying an actual sentence (the standard uses-every-letter sentence seemed to make an interesting choice). Oh, and it also has no semicolons (not difficult, I know, but it's my first!). use strict; won't work due to the $n in the foreach, and the version of Perl I'm running still complains about sticking a my there (why we don't upgrade past 5.004 in our standard installation is beyond me, but it's not my decision).

#!/usr/bin/perl -w

{$_="The quick red fox jumps over the lazy brown dog,\n"}
while(/(.)/g){s/$1//g if(eval("tr/$1//") > 1)}
{tr/qv-zfgi-npa-ctsT/uPkoahnr-tarheelcterJ/}
foreach $n(qw[4 7 4 8]){/\G([\w,\n]{$n})/g&&print($1)&&print($1=~/,/?'
+':' ')}
[download]

_{Note: I am not a UNC fan}

UPDATE: Fixed some wording and a code problem I don't remember being a problem... (pre-approval so most of you won't notice a change)