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

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