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

##</code><code>##

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