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