in reply to one liner function

@x = /=([^,]*)/g

In Section Seekers of Perl Wisdom