$num = () = 'stuff stuff stuff' =~ m/(stuff)/g; print $num; __DATA__ 3