Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
172.17.119.4-5 # Comments are here...
172.19-21.254.2-3 # Comments are here...
192.168.1.1-3 # Comments are here...

while (<DATA>) {
   s/#.*//;
...
      print("$ip\n");
   }
}