my $stuff = qr/[^A-Z]*/;
my $regex = join($stuff, split '','ABCD');