Select Code to Download

       $data[23] =~ s/-/\.\./; # convert - to .. perl syntax
       ^^^^^
       ...
       push(@range,eval $array[23]); # i expanded here
                        ^^^^^^

       $data[23] =~ s/-/\.\./g;