split /,/, $list

##</code><code>##

$list = s/[()]//g;