Help for this page

Select Code to Download

Select or download this

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;

Select or download this

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