Wow, that's a nice node that I wasn't previously aware of. The basic shortenings I made were:
- all variable names one char in length
- eliminate variables where you can
- removed quotes from strings (e.g. "FRED" -> FRED)
- $x=1;$y=1 -> $x=$y=1
- shift -> pop in subs
- removed return in subs
- split // -> /./g
- for {...} -> ... for
- if {...} -> ... or ...
- ' ' -> $"
These all seem to be mentioned in
Perl Golf 101, except perhaps the last one.
BTW, I've added
Perl Golf 101 to the list of references in
The Lighter Side of Perl Culture (Part IV): Golf.