$ perl -e '$t = "abc,def"; @t = split("\\W", $t); print "@t\n"'
abc def

##</code><code>##

$ perl -e '$a = "abc,def"; @a = split("[^a-z]", $a); print "@a\n"'
abc def