Select Code to Download

sub count_separators {
    my $value = shift;
...
  
    return eval 'sub { return shift =~ tr/' . $set . '//; }';
}

sub count_separators {
    my $value = shift;
...
  
    return eval 'sub { return shift =~ tr/' . $set . '//; }';
}

sub count_separators {
    my $value = shift;
...
    $delim eq '"' and return $value =~ tr["][]; #";
    die;
}