my $temp = $s;
$temp =~ s/[^A-Z]//g;
$temp =~ /ABCD/;