in reply to reuse of split variable?

What he wants is something more like: 
m/\s.*\((.*)$/;
@fields = split(/,/, $1);

[download]
I don't see a good way to put it into one statement.

In Section Seekers of Perl Wisdom