my @words = ($s =~ /([^*]+)/g);
[download]

Note that this code skips empty fields (leading, trailing, or internal)—for example, @words becomes ('a', 'b') if $s is a**b. Of course, this may be the desired behaviour.