Select Code to Download

grep {
    croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
    push @a, $1;
    push @b, $2;
} @cidr;

for (@cidr) {
    croak "This doesn't look like start-end\n" unless /(.*)-(.*)/;
    push @a, $1;
    push @b, $2;
    }