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