while (<$fh> ) {
    if ( $_ =~ /$eot/ ) {
     last;
    } else {
        $_ = <$fh>;
        $item = $_;
     $item =~ s/\n//gs;
     $item .= "\n\n";
    }

   if ( $item =~ /$errmsg/ ) {
     push @erritems, $item;
   }
 }