#!perl

$LOGFILE="debug-20120718-0021.log";  #put log name here
$SKYPENAME="-askypename-";          #put Skype name here

open(RD,$LOGFILE);
open(WR,">_ip_logger.txt");
while(<RD>){ chomp;
 $line=$_;

 if( ($line=~ /PresenceManager:/) and ($line=~ /noticing/) ){
  $line=~ /-r(\d+.\d+.\d+.\d+)/;
  $ip=$1;

  print WR $line."\n";
  print WR "IP: $ip\n";

  if ($line=~ /$SKYPENAME/){
   print $line."\n";
   print "${SKYPENAME} IP: $ip\n";
  };
 };

};
close(RD);
close(WR);
sleep()