A recursive version (loading your IP specs into @ips left as a trivial exercise):

for my $ip ( @ips ) {
    print "$_\n" for expandQuads( split( /\./, $ip ) );
}

sub expandQuads {
    my @quads = @_;
    my $first = shift(@quads);

    my @newQuads = ( $first =~ /(\d+)-(\d+)/ ) ? ($1..$2) : ($first);

    return ( @quads ) ?
       map { my $str = $_; 
              map { "$str.$_" } expandQuads(@quads) 
            } @newQuads
       : @newQuads;
}
[download]

pg