sub do_genre {
  my $genome  = "AGTATCGATCGATGCATGCTAGCTAGCTAGCTAGCTAGCTAGSTGCTAGCT";
  my @regexes = ("AGT", "ATC");  # dont care
  my $regex   = join "|", map "($_)", @regexes;
  my $count   = () = $genome =~ /$regex/;
  return $count; # returns 2
}