use warnings;
use strict;

while( my $line = <DATA> ) {
    chomp $line;
    $line =~ s/\s(?=[^(]*\))/@/g;
    print "$line\n";
}

__DATA__
aaa bbb ccc (dd ee)
(aa bb) (cc dd) eee fff
aaa (bb cc) (dd ee ff) ggg