perl -e'print join "!!",split /([ ,;]+)/,"This sentence contains, in here, a comma; and there's a semicolon clause\n";'