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

You can write this a little more clearly as:

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

(Use [:^upper:] or the Unicode \P{IsUpper} for non-English text.)