Try this

my @values = split(/\*\*/,$str,-1);
[download]

In perldoc on split, it says:

"Empty trailing fields, on the other hand, are produced when there is a match at the end of the string (and when LIMIT is given and is not 0)"

From http://perldoc.perl.org/functions/split.html