my @all = $string =~ /[^_]+/g;

##</code><code>##

my $result = "@all";