From: Michele Dondi <bik.mido@tiscalinet.it>
Message-ID: <o5is03dovf0ujn48i18vv3v1s0vr4ofqdp@4ax.com>
Date: Sat, 31 Mar 2007 13:44:41 +0200

On Thu, 29 Mar 2007 09:50:37 -0500, Uri Guttman <uri@stemsystems.com>
wrote:

>  cc>       if (<$fh> =~ m/$item/) {
>
>that is very wrong. it reads a new line in for each match in the

Unless he really wanted to do so. Of course, all odds are against this
remote possibility.  :-)


Michele
-- 
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,