Count the delimiters in Global variable

Gurus,

I'm getting following delimited values in global variable, which tend to change during run time. Any number of values are possible.

$Count=A,B,C,D

I want to count the delimited values.In the above example '4' should be the returned value.

Is there is any function in BODS to accomplish? I want to do that in script(bods) without calling unix script. Any other possible ways. Kindly help.

Thanks