my $x=0;
$x++ if $match =~ /^ABC.*/ && $match !~ /^ABCZ$/;