Select Code to Download

$ perl -E 'say "|$_|" for split /-| /, "A B-C"'
|A|
|B|
|C|

$ perl -E 'say "|$_|" for split /(-| )/, "A B-C"'
|A|
...
|B|
|-|
|C|

$ perl -E 'say "|$_|" for split /(-|)/, "A B-C"'
|A|
...
|B|
|-|
|C|

$ perl -E 'say "|$_|" for split / /, "A B-C"'
|A|
...
$ perl -E 'say "|$_|" for split " ", "A B-C"'
|A|
|B-C|

$ perl -E 'say "|$_|" for split //, "A B-C"'
|A|
...
|B|
|-|
|C|