I don't think that the second one will be correct for strings like "blue blue blue and blue again" and patterns like "^blue"...

Update: Sorry mirod, I misread that one :)

Lets all have a try at it:

@_=($str =~ m/$pattern/g) and $count=1+$#_;
[download]

/brother t0mas