[Entering role as bastardous code cop.] There's no explicit localization of $_ up there. Please localize $_. Far to little code localizes $_ for this construction. See Localizing $_ and while (<FH>) { ... }. (Is really: "Re: Re4: matching every occurrence of a regex") for a lengthy discussion.