Select Code to Download

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