すんません。簡単な変更だったんで、テストせずにあげちゃいました。
これからはちゃんとテストします。
一応変更したのは、最初の登録画面で所属を選びます。
その所属が名前の最初に強制的につきます。（例）「狼軍：あやや姫」
それで、最初のひと文字目で所属判定しています。

のちのち、簡単に現在存在する所属を変更できるようなプログラムにしようと思います。
でもperlあまり知らんからちょっと厳しい現状です。
今のとこ,これでよろしく。