perl: fixed matching

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