@rangelist = (); #just keeps dumping the data stored there.

##</code><code>##

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