#!/usr/bin/perl

use strict;
use warnings;

use Regexp::Common qw /net/;

open(INPUT, "<", "Datei.txt") or die "kann Datei.txt nicht lesen: $!\n";

while(<INPUT>) {
    print $1, "\n" if /IP-Adresse.*:\s*($RE{net}{IPv4})/; 
}

close(INPUT);