I'd start with maybe stripping the curly braces, and then splitting the string on /\s*,\s*/.

Iterating over the result list should give you all the information you need.

See also: perlretut, perlintro.