my @values = split(/\*\*/,$str);

warn Dumper(\@values);