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

my $cleanup = 1;

while ( <> ) {
    chomp;
    s/\(+.*?\)+//g;
    y/ / /s, s/^\s|\s$// if $cleanup;
    say;
}