Win8 Strawberry 5.30.3.1 (64)  Thu 04/14/2022 15:59:05
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

use Data::Dump qw(dd);

my $rx_ab   = qr{ A \s* = \s* [BCDEFGH] }xms;
my $rx_stop = qr{ batch \s* = }xms;

my @strings = (
    'A = B foo A=C batch = bar A = D',
    'A = B foo A=C bar A =D',
    );

for my $s (@strings) {

    my @captures = $s =~ m{
        ($rx_ab) | $rx_stop (*COMMIT) (*FAIL)  # wrong order?  see update below.
        }xmsg;

    dd \@captures;

    }

^Z
["A = B", "A=C"]
["A = B", "A=C", "A =D"]