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