if (not %num2left) {
        $left =~ s/tar : //;
        print "NOINDEX\t$left\t$right\n";
    }