...
while($line=~/(\d+.\d+.\d+.\d+)-(\d+.\d+.\d+.\d+)/g){
...

##</code><code>##

...
my($min_ip,$max_ip)=split/-/,$line;
...