[OT] golf

[Jonathan Rockway]

* On Tue, Mar 04 2008, Greg McCarroll wrote:
> With the greatest respect and love in the world I'd just like to point out
> that you are all sick weirdo's ;-)

#!/usr/bin/perl -w 
length q bless glob and print chr oct ord q pop and print chr ord qq q q
and print chr ord q qw eq and print chr ord q map m and print chr ord qw
q sin q and print chr ord q q q and print chr ord qw q gt q and print
chr ord q xor x and print chr ord q sin s and print chr ord qw q no q
and print chr ord qw q ge q and print chr ord q q eq and print chr ord q
lt eval and print chr ord q pop and print chr ord q q q and print chr
ord q each le and print chr ord qw q sin q and print chr ord qw q kill q
and print chr ord q q q and print chr ord q each le and print chr ord qw
q bless q and print chr ord q local and print chr ord qw q uc q and
print chr ord q stat s and print chr ord q q q and print chr ord q qw eq
and print chr ord q or no and print chr ord q tie gt and print chr ord q
lt eval and print chr ord q tie lt and print chr ord qw q ne q and print
chr ord qw q glob q and print chr ord qq q q and print chr ord q each ne
and print chr ord q q q and print chr ord q open no and print chr ord q
qr eq and print chr ord q local and print chr ord qw q gt q and print
chr ord q qr q and print chr ord q map m and print chr ord q rmdir and
print chr ord q q q and print chr ord q qw eq and print chr ord q tie gt
and print chr ord q gt log and print chr ord q chr uc and print chr ord
q xor x and print chr ord q dump and and print chr ord q lt eval and
print chr ord qq q q and print chr ord qw q use q and print chr ord qw q
sin q and print chr ord q tie lt and print chr ord qw q no q and print
chr ord qw q glob q and print chr ord q q q and print chr ord qw q s q
and print chr ord q tie gt and print chr ord qw q gt q and print chr ord
q sin s and print chr ord q else and print chr ord qw q sin q and print
chr oct oct oct ord qw q for q and print chr ord q q q and print chr ord
qw q bind q and print chr ord qw q use q and print chr ord q lt eval and
print chr ord q q eq and print chr ord q tie lt and print chr ord q gt
log and print chr ord q q q and print chr ord q gt log and print chr ord
qw q use q and print chr ord q qr q and print chr ord qw q ne q and
print chr ord q msgctl m and print chr ord qq q q and print chr ord q
local and print chr ord qw q use q and print chr ord q lt eval and print
chr ord q q q and print chr ord q gt log and print chr ord q pop and
print chr ord q q eq and print chr ord qw q bind q and print chr ord q
ref or and print chr ord q q eq and print chr ord q gt log and print chr
ord q or no and print chr ord q tie lt and print chr ord q eval ne and
print chr ord q tie gt and print chr ord q map m and print chr ord qw q
le q and print chr ord qq q q and print chr oct ord uc q chr lc and
print chr oct oct oct ord uc q cmp lc and print chr ord q q q

Regards,
Jonathan Rockway