Help for this page
... while($line=~/(\d+.\d+.\d+.\d+)-(\d+.\d+.\d+.\d+)/g){ ...
... my($min_ip,$max_ip)=split/-/,$line; ...