"ABC" followed by ANYTHING (or NOTHING), 
EXCEPT exactly one case which is "ABCZ"

##</code><code>##

/ABC[^Z]?.*$/

##</code><code>##

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