$ perl -le 'print join "|", split /(\W)/, "Hello, World! ?";'
Hello|,|| |World|!|| ||?
$ perl -le 'print join "|", split /\W/, "Hello, World! ?";'
Hello||World