open(INF,"test.irc");
    @ary=<INF>;
close(INF);

foreach $line (@ary) {
    chomp($line);
    ($txt_cmd,$txt_me,$txt_chan)=split(/\|/,$line);
    if ($text eq $txt_cmd){
        $conn->me($conn->{channel},"$txt_me");
        $conn->privmsg($conn->{channel}, "$txt_chan");
    }
}