while (<DATA>) {
    chomp;
    my @F = split / /;
    $F[6] =~ s/[()]//g;
    say join ' ', @F;
}