second chalenge done

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-081/jluis/perl/ch-2.pl b/challenge-081/jluis/perl/ch-2.pl
new file mode 100644
index 0000000000..010b34985f
--- /dev/null
+++ b/challenge-081/jluis/perl/ch-2.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use 5.010;
+
+open(my $input,'<','input') or die "Can't open input: $!";
+
+my %freq;
+while(<$input>){
+	chomp;
+	s/\.|"|\(|\)|,|'s|--/ /g;
+	while (s/\s*(\w+)\s*//) {
+		$freq{$1} = 0 unless defined $freq{$1};
+		$freq{$1} += 1;
+	}
+}
+
+my @results;
+for my $key (sort keys %freq) {
+    $results[$freq{$key}] = "$freq{$key}" unless defined $results[$freq{$key}];
+    $results[$freq{$key}] .= " $key";
+}
+
+defined($_) and say for @results;