unless($_ =~ /^\d+\.\d+\.\d+\.\d+/) {
	unless ($key eq "") {
		$CoreRegR{$key} = \@rangelist;
	}
	@rangelist = (); 
	$key = $_;
} else {
	push(@rangelist,$_);
}

##</code><code>##

Server1 Name
192.168.100.1/27
192.168.101.2/32
Server2 Name
Server3 Name
192.168.102.3/31
192.168.103.4/30
192.168.104.5/28
Server4 Name
10.100.2.1/31
10.101.2.2/32
10.102.2.3/28
Server5 Name
10.103.2.4/29
10.104.2.5/27