#!perl
use strict;
use warnings;
use 5.12.0;

while ( my $str = <> ) {
    chomp $str;
    my $extract = join '|', map { "\Q$_\E" } ( $str =~ m/(\(+.*?\)+)/g );
    say join '', split /$extract/, $str;
}