my @cutout = Text::Balanced::extract_bracketed( $input, '()' );
$input = $cutout[0];