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