# Expand ranges of numbers so [21-25] becomes  (21|22|23|24|25)
    # Ugh!
    #
    if ( $ip =~ /-/ ) {
        # foreach (split(/\./, $ip) {
        my @i=(split(/\./, $ip) 
        foreach (@i) {
            if ( /\[(\d+)-(\d+)\]/ ) {
            $_ = "(" . join("|", ($1..$2)) . ")"