#!/usr/bin/perl
use strict;
use warnings;

use Set::CrossProduct;

while( <DATA> )
	{
	chomp;
	
	s/\s*#.*//;

	my @b = map { [ m/(\d+)-(\d+)/ ? $1 .. $2 : $_ ] } split /\./;
	
	my $cross = Set::CrossProduct->new( \@b );
	while( my $array_ref = $cross->get )
		{
		print join( ".", @$array_ref ), "\n";
		}

	}


__END__
172.17.119.2 # Comments are here...
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...

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

use Set::CrossProduct;

$, = "\n";

print map {
	chomp; s/\s*(#.*)?$//;
	
	map { join ".", @$_ }
		Set::CrossProduct->new( 
				[ 
				map { [ m/(\d+)-(\d+)/ ? $1 .. $2 : $_ ] } 
					split /\./ 
				]
			)->combinations;

	} <DATA>;

__END__
172.17.119.2 # Comments are here...
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...