Help for this page
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"); } }