my @matches = $data =~ m/and/;
my $count = scalar @matches;