$ $ perl -e'print "$_\n" foreach split /[,{}*]/,"this{is*a}test,of"'
this
is
a
test
of