my $range = qw(192.168.2.0);
while ($range =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
{
     print "Enter the iprange e.g. 192.168.2.0!\n";
     print "IP-range: ";
     $range = <STDIN>;   
}