!beer|give to $nick one beer|cheers $nick

##</code><code>##

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");
    }
} 

##</code><code>##

[00:13] <boilera> !beer
[00:13] * Curolina give to $nick one beer
[00:13] <Curolina> cheers $nick

##</code><code>##

[00:13] <boilera> !beer
[00:13] * Curolina give to boilera one beer
[00:13] <Curolina> cheers boilera