my @keeps = $string =~ s/$re//gr =~ m/\b(\w+)\b/g;