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