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