$ perl -le"print for split /,/, q!sue,fred,x(mary,jane)!, 3"
sue
fred
x(mary,jane)