perl -e '$str = "Perl, Froschpopo, CGI"; @arr = split(/\b\W*\s\W*\b/,$str); print lc $_,"\n" for @arr'