Select Code to Download

#!/usr/bin/perl

...
127.0.0.1            => 8
174.129.112.136      => 1
174.129.233.130      => 1

  while( /((\d+)\.\d+\.\d+\.\d+)/g ) {

  while( /((\d+\.\d+)\.\d+\.\d+)/g ) {