A perl script I originally knocked up for Spacesearch.
It can help create quickly-downloadable, harder-to-read code; there's also a custom sed script to shorten the variable names for Spacesearch, so it's merely part of the armoury.
Tested on 5.003 and 4; should work with any version of perl 5.
With thanks to George, jon and waider. The bad pun is all my own work.