$str =~ /^A[^A-Z]*B[^A-Z]*C[^A-Z]*D$/;

##</code><code>##

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