Select Code to Download

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

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