Select Code to Download

Select or download this

        my $writeFh = new FileHandle ">> myout.log";

Select or download this

From: "cadetg@googlemail.com" <cadetg@googlemail.com>
Message-ID: <1175171070.630366.108750@n59g2000hsh.googlegroups.com>
...
-Marco

Select or download this

From: bugbear <bugbear@trim_papermule.co.uk_trim>
Message-ID: <460bbcd5$0$8741$ed2619ec@ptn-nntp-reader02.plus.net>
...

   BugBear

Select or download this

From: "cadetg@googlemail.com" <cadetg@googlemail.com>
Message-ID: <1175176945.669754.20700@e65g2000hsc.googlegroups.com>
...
-Marco

Select or download this

From: "Thomas J." <jue@monster-berlin.de>
Message-ID: <1175178049.657421.112810@n59g2000hsh.googlegroups.com>
...
Thomas

Select or download this

From: Uri Guttman <uri@stemsystems.com>
Message-ID: <x77it0drya.fsf@mail.sysarch.com>
...
--Perl Consulting, Stem Development, Systems Architecture, Design and 
+Coding-
Search or Offer Perl Jobs  ----------------------------  http://jobs.p
+erl.org

Select or download this

From: Michele Dondi <bik.mido@tiscalinet.it>
Message-ID: <o5is03dovf0ujn48i18vv3v1s0vr4ofqdp@4ax.com>
...
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,

Select or download this

From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Message-ID: <460bd4d0$0$494$815e3792@news.qwest.net>
...
> }

Select or download this

From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Message-ID: <hrROh.16204$PL.12911@newsread4.news.pas.earthlink.net>
...

Select or download this

From: "John W. Krahn" <someone@example.com>
Message-ID: <43UOh.28203$x9.8743@edtnps89>
...
Perl isn't a toolbox, but a small machine shop where you can special-o
+rder
certain sorts of tools at low cost and in short order.       -- Larry 
+Wall

Select or download this

From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Message-ID: <RmWOh.17939$tD2.13587@newsread1.news.pas.earthlink.net>
...

Oops, you're right. The "while (<$fh>)" magic confused me.