Select Code to Download

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

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