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