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