or download this
#!/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=~/,/?'
+':' ')}