my ($opt) = $test =~ $brace;
  my ($set) = $test =~ $box;
  my @opt = split $delim, $opt;
  my @set = split $delim, $set;