my $good = $string =~ /^(?=.*?(\s|^)d4(\s|$))(?=.*?(\s|^)b2(\s|$))/;