Select Code to Download

my $tempstr = $str;
# get rid of () around status
$tempstr =~ s/^([^(:]+)\(([^)]+)\)/$1$2/;
# grab the status and anything in parentheses
@needed = $tempstr =~ /(^[^:]+|(?<=\()[^)]+(?=\)))/g;

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