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 .-----------------------------------. | This has been a P.L.U.G. mailing. | | Don't Fear the Penguin. | | IRC: #utah at irc.freenode.net | `-----------------------------------'
