perl -e '$str = "Wort, Satz mit,- ohne Kommas"; @array = $str=~ /^(.+),\s*(.+)/; print $_,"\n" for @array';