sub join{
	$k=substr $_[0][0], 1;
	@k1=split('!',$k);
	@k2=split('@',@k1[1]);
	$nikas=&pertvarkom(@k1[0]);
	$identas=&pertvarkom(@k2[0]);
	$hostas=&pertvarkom(@k2[1]);
	$kanalas=&pertvarkom(substr $_[0][2], 1);
	$exception="exception";
	open (exception);
	$bool="tinka";
	Xchat::command("echo $nikas $identas $hostas $kanalas");
	foreach $eil (<exception>){
		$eil=&pertvarkom($eil);
		Xchat::command("echo aaa $nikas aaa bbb $eil bbb");
		if($nikas eq $eil){
			$bool = "netinka";
                        Xchat::command("echo tiko $nikas $eil ");
		}
	}
	return 0;
}

sub pertvarkom{
	$stringas =$_[0];
	$stringas=~ tr/\n//;
	$stringas=~ tr/\t//;
	chomp $stringas;
	return $stringas;
}

rezultatas:

[11:08-15:55:52] orion666 daffy 03bar.ktu.lt #hhyyii
[11:08-15:55:52] aaa orion666 aaa bbb zero-gravity bbb
[11:08-15:55:52] aaa orion666 aaa bbb savas
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb petras
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb birute
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb [titanic]
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb [cyka]
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb orion666
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb elenute
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb akrobate
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb Ginekolog
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb X-CaTaHa
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb DreamLiner
 bbb
[11:08-15:55:52] aaa orion666 aaa bbb wazzap bbb
[11:08-15:55:52] galas orion666  03bar.ktu.lt #hhyyii -   tinka