{
 my $range;
 do {
   print 'Die Eingabe war ungueltig -- ' if (defined $range);
   print 'Bitte geben sie eine IP-Adresse (z.B.: 1.2.3.4) ein: ';
   $range = <STDIN>;
 } while (not ($range =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/));
 print "Die korrekte Eingabe war: $range\n";
}