@elements = split(/,(?!(?:[^\/]|\/(?!\*))+\*\/)/, $str);