モウシワケナイですがもひとつ教えて下さい。

                foreach (@dic1) {
                        chop;
                        ($in,$out)=split(/:/);
                        if ($chat =~ /$in/) {
                                push(@NEW1,$_);
                        }                                    
                }                                            
                if (@NEW1) {
                        ($in,$out) = split(/:/,splice(@NEW1, rand @NEW1, 1));	
			$out =~ s/c_name/$name/g;
                        $chat_tanu = "$out";
                } else {


の部分が辞書から読み込んだ行の返答への切り出しですよね？

辞書の中身を、

	キーワード:返答ZZ返答ZZ返答…

という風に"ZZ"等の文字でで区切った一行で複数の返答を登録出来るように
したいのですが、どこをどうすればイイのでしょうか？
ゆうべ色々試して見ましたが今のワタシの力では出来ませんでしたので、
ご教授お願いします(._.)

実際、同じキーワードの返答がかなり増えてファイルが不要にデカイもので(^^;

----------------------------

.