Added perl solution ch#65

2 files changed, 35 insertions, 0 deletions

diff --git a/challenge-065/yet-ebreo/perl/ch-1.pl b/challenge-065/yet-ebreo/perl/ch-1.pl
new file mode 100644
index 0000000000..702265d3e9
--- /dev/null
+++ b/challenge-065/yet-ebreo/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature 'say';
+
+my $digits = 3;
+my $sum    = 4;
+
+for my $x (glob "{1,2,3,4,5,6,7,8,9,0}" x $digits) {
+    my $s = eval $x=~s/\B/\+/gr;
+    (length (int $x) == $digits) && ($s == $sum) && say $x
+}
\ No newline at end of file
diff --git a/challenge-065/yet-ebreo/perl/ch-2.pl b/challenge-065/yet-ebreo/perl/ch-2.pl
new file mode 100644
index 0000000000..d307acdde7
--- /dev/null
+++ b/challenge-065/yet-ebreo/perl/ch-2.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use feature 'say';
+
+use Algorithm::Combinatorics qw(partitions);
+
+my $string = "abbaba";
+my @arr    = $string =~/./g;
+my %hash   = ();
+
+for my $arr ( partitions(\@arr) ) {
+    for my $elem (@{$arr}) {
+        my $w = join "", @{$elem};
+        if ($w =~ /^((.)(?1)\2|.?)$/ && $string =~/$w/) {
+            (length $w > 1) && !$hash{$w} && say $w;
+            
+        } 
+        $hash{$w}++;
+    }
+}
+
+