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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

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

##</code><code>##

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

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