#!perl
$LOGFILE="debug-20160211-0208.log";
$SKYPENAME="skype";

open(RD,$LOGFILE);
open(WR,">_ip_logger.txt");
while(){ 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);