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