sub howmany {
    return scalar(() = $_[0] =~ /(?:[^,]+)/g);
}