@items = map { split /,\*/ } $string =~ /\((.*?)\)/g;

Tsk. And after Ovid and you went through the rounds in Death to Dot Star!

(although I don't know which is actually faster)