From d5b2b99e3dd65cb43d9ba27b93aac9360016868f Mon Sep 17 00:00:00 2001
From: Richard Kojedzinszky <krichy@cflinux.hu>
Date: Thu, 25 Sep 2014 22:53:35 +0200
Subject: [PATCH] uwc: perl version

---
 uwc.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 uwc.pl

diff --git a/uwc.pl b/uwc.pl
new file mode 100644
index 0000000..e6b4176
--- /dev/null
+++ b/uwc.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use common::sense;
+my %counts;
+
+while (<STDIN>) {
+	for (/([a-z']+)/goi) {
+		$counts{$1}++;
+	}
+}
+
+print join("\n", sort { $counts{$a} <=> $counts{$b} } keys %counts) . "\n";
-- 
2.1.4