my ($ip) = $line =~ /IP-Adresse\.+((?:\d+\.)+\d+)/;
print $ip;