$ perl -e 'print join("|",split(/(\W)/,"Hello,,World,,,")),"\n";'
Hello|,||,|World|,||,||,