foreach $keys (%msgids) {
            if ($key =~ /$line/) {
                delete $msgids $key;
            }
      }