diff --git a/2015/05/nice.pl b/2015/05/nice.pl
new file mode 100644
index 0000000..159326e
--- /dev/null
+++ b/2015/05/nice.pl
@@ -0,0 +1,10 @@
+use 5.20.0;
+use List::AllUtils qw/ sum /;
+
+say sum map { nice() }<>;
+
+sub nice {
+    return 0 if /ab|cd|pq|xy/ or not /(.)\1/;
+    my @x = /([aeiou])/g;
+    @x >= 3;
+}
diff --git a/2015/05/nice2.pl b/2015/05/nice2.pl
new file mode 100644
index 0000000..3138ce8
--- /dev/null
+++ b/2015/05/nice2.pl
@@ -0,0 +1,8 @@
+use 5.20.0;
+use List::AllUtils qw/ sum /;
+
+say sum map { nice() }<>;
+
+sub nice {
+    return !!( /(..).*?\1/ and /(.).\1/ );
+}