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=~/,/?' +':' ')}
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)
In reply to First JAPH by wink
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |