[MacPerl] Get count of specific character

[Matthew Fischer]

What is the best way to find the number of occurences of a specific character in a 
string? I have some form data which is in a variable $FORM{'countries'}, and I need to 
know how many pipe characters are contained within it.

Thanks in advance for any help.