$count = () = $data =~ m/and/g; #### $count = $data =~ m/and/g;