$ perl -wE 'say "yes" if "A BCZD ZA"  =~ /^A(\s.*?)?ZA/'
yes