はぎちゃんです

>if ($chat =~ /$in/) {
>                                push(@NEW1,$_);
>                        }   

if ($chat =~ /$in/) {
    @words=split(/zz/,$out);
    foreach $word (@words) {
        $dmy=$in . ":" . $word;
        push(@NEW,$dmy);
    }
　　undef(@words);
}

こんな感じでどうでしょう？



.