diff --git a/math/Makefile b/math/Makefile
index 00a8f39a4448..86a8472a2545 100644
--- a/math/Makefile
+++ b/math/Makefile
@@ -144,6 +144,7 @@
     SUBDIR += oleo
     SUBDIR += orpie
     SUBDIR += p5-AI-DecisionTree
+    SUBDIR += p5-AI-Genetic
     SUBDIR += p5-AI-NeuralNet-BackProp
     SUBDIR += p5-AI-NeuralNet-Mesh
     SUBDIR += p5-AI-Perceptron
diff --git a/math/p5-AI-Genetic/Makefile b/math/p5-AI-Genetic/Makefile
new file mode 100644
index 000000000000..6b6642aa31ef
--- /dev/null
+++ b/math/p5-AI-Genetic/Makefile
@@ -0,0 +1,26 @@
+# New ports collection makefile for:	AI-Genetic
+# Date created:				19 Feb 2006
+# Whom:					Aaron Dalton <aaron@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	AI-Genetic
+PORTVERSION=	0.04
+CATEGORIES=	math perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	AI
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	aaron@FreeBSD.org
+COMMENT=	A pure Perl genetic algorithm implementation
+
+MAN3=	AI::Genetic.3 \
+	AI::Genetic::Individual.3 \
+	AI::Genetic::OpCrossover.3 \
+	AI::Genetic::OpMutation.3 \
+	AI::Genetic::OpSelection.3
+
+PERL_CONFIGURE=	yes
+
+.include <bsd.port.mk>
diff --git a/math/p5-AI-Genetic/distinfo b/math/p5-AI-Genetic/distinfo
new file mode 100644
index 000000000000..01700981b043
--- /dev/null
+++ b/math/p5-AI-Genetic/distinfo
@@ -0,0 +1,3 @@
+MD5 (AI-Genetic-0.04.tar.gz) = 332664e17ed89f3f64c073dfd609131a
+SHA256 (AI-Genetic-0.04.tar.gz) = ef047d937b02ec12f985ee96ad4e408e2a520007f41382f5dd0003099be98d97
+SIZE (AI-Genetic-0.04.tar.gz) = 16652
diff --git a/math/p5-AI-Genetic/pkg-descr b/math/p5-AI-Genetic/pkg-descr
new file mode 100644
index 000000000000..f2313431e71b
--- /dev/null
+++ b/math/p5-AI-Genetic/pkg-descr
@@ -0,0 +1,20 @@
+This module implements a Genetic Algorithm (GA) in pure Perl. Other Perl 
+modules that achieve the same thing (perhaps better, perhaps worse) do 
+exist. Please check CPAN. I mainly wrote this module to satisfy my own 
+needs, and to learn something about GAs along the way.
+
+I will not go into the details of GAs here, but here are the bare basics. 
+Plenty of information can be found on the web.
+
+In a GA, a population of individuals compete for survival. Each individual 
+is designated by a set of genes that define its behaviour. Individuals 
+that perform better (as defined by the fitness function) have a higher 
+chance of mating with other individuals. When two individuals mate, they 
+swap some of their genes, resulting in an individual that has properties 
+from both of its "parents". Every now and then, a mutation occurs where 
+some gene randomly changes value, resulting in a different individual. If 
+all is well defined, after a few generations, the population should 
+converge on a "good-enough" solution to the problem being tackled.
+
+WWW: http://search.cpan.org/dist/AI-Genetic
+Author: Ala Qumsieh <aqumsieh@cpan.org>
diff --git a/math/p5-AI-Genetic/pkg-plist b/math/p5-AI-Genetic/pkg-plist
new file mode 100644
index 000000000000..770b1fdf9ad7
--- /dev/null
+++ b/math/p5-AI-Genetic/pkg-plist
@@ -0,0 +1,14 @@
+%%SITE_PERL%%/AI/Genetic.pm
+%%SITE_PERL%%/AI/Genetic/Defaults.pm
+%%SITE_PERL%%/AI/Genetic/IndBitVector.pm
+%%SITE_PERL%%/AI/Genetic/IndListVector.pm
+%%SITE_PERL%%/AI/Genetic/IndRangeVector.pm
+%%SITE_PERL%%/AI/Genetic/Individual.pm
+%%SITE_PERL%%/AI/Genetic/OpCrossover.pm
+%%SITE_PERL%%/AI/Genetic/OpMutation.pm
+%%SITE_PERL%%/AI/Genetic/OpSelection.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/AI/Genetic/.packlist
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/AI/Genetic
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/AI
+@dirrm %%SITE_PERL%%/AI/Genetic
+@dirrmtry %%SITE_PERL%%/AI