my @values = $str =~ /(.*?)\*\*/sg;

##</code><code>##

my @values = $str =~ /(.*?\*\*|.+)/sg;
s/\*\*\z// for @values;