Help for this page
"ABC" followed by ANYTHING (or NOTHING), EXCEPT exactly one case which is "ABCZ"
/ABC[^Z]?.*$/
my $x=0; $x++ if $match =~ /^ABC.*/ && $match !~ /^ABCZ$/;