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

    {
        $delim eq '{' and $set = '{|}' and last; 
        $delim eq '(' and $set = '(|)' and last; 
        $delim eq '"' and $set = '"'   and last;
        die; # Should never occur...
    }
    print 'sub { return shift =~ tr/' . $set . '//; }' . "\n";
  
    return eval 'sub { return shift =~ tr/' . $set . '//; }';
}