qr/(^([0-9]{1,3}\.){3}[0-9]{1,3})/,
...
        qr/^(\d.*\d)/,
...
        qr/(.*)/,
...
                foreach ( $response->content =~ /$regex/g ) {