The pattern matching function m// should return the number of times the pattern matched.

Update: Wups. My mistake. Nevermind.

Update 2: However, s/// does what I thought m// does, so you can do something like:

my $count = ($string =~ s/(pattern)/$1/g;)

Good luck.

Zenon Zabinski | zdog | zdog7@hotmail.com