From 347371e27ff3dd862b942ed73a867473b3bedb3a Mon Sep 17 00:00:00 2001
From: Jose Luis Perez <jluis@escomposlinux.org>
Date: Wed, 7 Oct 2020 13:21:05 +0200
Subject: second chalenge done

---
 challenge-081/jluis/perl/ch-2.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 challenge-081/jluis/perl/ch-2.pl

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;
-- 
cgit