{
  my $range;
  do {
    $range = <STDIN>;
  } while (not ($range =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/));
  ...
}