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