Select Code to Download

qr/^((\d{1,3}\.){3}\d{1,3})/m

qr/^((?:\d{1,3}\.){3}\d{1,3})/m

        foreach ( $response->content =~ /$regex/g ) {
            @sys = (qw(ipset add), "temp_$set_name", $_);
            system(@sys) == 0 or die "Unable to add $_ to temp_$set_na
+me because: $?";
            }

        while ( $response->content =~ /$regex/g ) {
            @sys = (qw(ipset add), "temp_$set_name", $1);
            system(@sys) == 0 or die "Unable to add $_ to temp_$set_na
+me because: $?";
            }