Select Code to Download

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

my $result = "@all";