my $VAR = [ $string =~ s/$re//gr =~ m/\b(\w+)\b/g ];