uwc: perl version

diff --git a/uwc.pl b/uwc.pl
new file mode 100644 (file)
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";