my $range;
{
            do
            {
                   print "Die Eingabe war ungueltig -- " if (defined $range);
                   print "Wrong IP-range. Enter right IP-range e.g. 192.168.2.0!\nIP-range: ";
                   $range = <STDIN>;
            }
            while (not ($range =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/));
            print "Die korrekte Eingabe war: $range\n";
}