From 06427ec7f9008c004547ca813dc180c57ba81539 Mon Sep 17 00:00:00 2001
From: Richard Kojedzinszky <krichy@tvnetwork.hu>
Date: Fri, 26 Sep 2014 09:49:43 +0200
Subject: [PATCH] perl: fixed matching

---
 uwc.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uwc.pl b/uwc.pl
index fa5e1e1..92bb4e0 100644
--- a/uwc.pl
+++ b/uwc.pl
@@ -5,7 +5,7 @@ my %counts;
 
 while (<STDIN>) {
 	for (/([a-z']+)/goi) {
-		$counts{$1}++;
+		$counts{$_}++;
 	}
 }
 
-- 
2.1.4