@needed = $_ =~ /(^[^:]+|(?<=\()[^)]+(?=\)))/g;
$needed[0] =~ y/()//d;