use strict;
use warnings;
no  warnings qw(once);

{
	my $ProdBuild = 'K7000AKNBJQ4333';
	
	if ($ProdBuild =~ m/K7000[A-Z]\-?[A-Z][A-Z][A-Z][A-Z][A-Z]\-?[4-9][3-9]\d+/i) {
		print "Product match $ProdBuild \n"
	}
	else {
		print "No match found \n"
	}
		
}