my $found = join ' ', $string =~ /([^_]+)/g;
print "$found\n";