sub count_separators {
    my $value = shift;
    my $delim = shift;

    $delim eq '{' and return $value =~ tr[{|}][];
    $delim eq '(' and return $value =~ tr[(|)][]; 
    $delim eq '"' and return $value =~ tr["][]; #";
    die;
}