if ($line =~ m/:.+\@.+\s([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/)
{
  Xchat::print("test2",,$servertabname);
  my $ip = $1;

##</code><code>##

if ($line =~ m/:.+\@.+\s([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/)
{
  my $ip = $1;
  Xchat::print("test2",,$servertabname);