>>593
面白いモジュールあるね。
win32限定で作るのなら、いいかも。

>>595
@hoge = split(/(?<!A)-/, $hoge);
これでダメなの？