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