use strict;
use warnings;

my $threshold = 4333;

while (my $ProdBuild = <DATA>) {
    chomp $ProdBuild;
    
    if ($ProdBuild =~ m/K7000[A-Z]-?[A-Z]{5}-?(\d+)/i and $1 >= $threshold) {
        print "Product match $ProdBuild\n";
    }
    else {
        print "No match found \n"
    }
        
}

__DATA__
K7000AKNBKQ4333
K7000A-KNBKQ-4333
K7000A-KNBKQ-6801
K7000TKNBKQ7610
K7000AKNBKQ4233
K7000AKNB4333
K7000ANBKQ6845
K7000TKNBKQ-1845