TIMTOWTDI

[JStay at mediageneral.com]

Hopefully this doesn't spawn off another flame war, but for those of you
that do come across bad Perl code due to the TIMTOWTDI mentality of
Perl, this article from OSCON gives some great tips to make it right:

http://www.oreillynet.com/pub/wlg/7551

####################################
### Jesse Stay                   ###
### Lead Applications Developer  ###
### IMD Classifieds              ###
### Media General, Inc.          ###
### (804)649-6534                ###
####################################
#!/usr/bin/perl
$^=q;@!>~|{>krw>yn{u<$$<Sn||n<|}j=<$$<Yn{u<Qjltn{ > 0gFzD gD, 00Fz, 0,,(
0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{ rw}
>;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print