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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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