my $nu = qr/[^A-Z]*/;
$str =~ /^ A ${nu} B ${nu} C ${nu} D $/x;