$data = 'stuff stuff stuff'; $num = $data =~ s/(stuff)//g; print $num, $/; __DATA__ 3 #### $num = () = 'stuff stuff stuff' =~ m/(stuff)/g; print $num; __DATA__ 3