I'm confused. Please explain how your needed output differs from your original string; they appear the same to me. If you intend to capture everything, please explain what you're trying to not capture, or at least what you would like to fail to match.

Update:
Do you really want Text::Balanced's extract_bracketed() subroutine? It can be used to essentially capture the "balanced parens" portion of a string. Observe:

use strict;
use warnings;

use Text::Balanced qw( extract_bracketed );

my $text='(one dfd(two(three)four()(five)df())df)';

my $balanced = extract_bracketed( $text );

print "$balanced\n";
[download]

Also note, if the return value of extract_bracketed() is undef (in scalar context), it means the parens weren't balanced.