This was advice I got early on in my quest to learn Perl. I have a "toy" Debian box that I use to play with new ideas and such; I don't think there are any shell scripts left, save those that start before my /usr partition is mounted, and those that are so shell-cryptic I can't yet understand what they do. ;-)
Sadly, I didn't find anything truly advanced there (maybe in the shell stuff I don't get yet, there are gems) from a Perl perspective. I did, however, learn a lot about perl -x
radiantmatrix
require General::Disclaimer;
s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}