If the delimiter is indeed '::', one can use split and pass in a limit.

($count, $rest) = split(/::/,$games{$_},2);
[download]

thor