in reply to doing something with the rest of a file after matching a keyword

Hi,

 while (<fname>){
            $_ =~/well/ ? {$/ = undef;$Well.=$_;}:next;
       }

[download]
  • Comment on Re: doing something with the rest of a file after matching a keyword
  • Download Code

In Section Seekers of Perl Wisdom