Improve regexes for separating kws, IDs and expressions

ffoo/saturnin_www.sh

@@ -10,7 +10,7 @@ filter_exprs() {
     #
     sed -e 's/(\d)\</\n/;'\
       | perl -ne '
-            next unless m/\b([a-zA-Z]{2,}\s*=\s*\d+)\b/;
+            next unless m/\b([a-zA-Z]\w*\s*=\s*\w+)\b/;
             print "$1\n";
         ' \
       | debug_pipe ex_lookalikes
@@ -23,7 +23,7 @@ filter_ids() {
     #
     tr ' ' '\n' \
       | perl -ne '
-            next unless m/\b([a-zA-Z]{2,}#\d+)\b/;
+            next unless m/\b([a-zA-Z]\w*#\w+)\b/;
             print "$1\n";
         ' \
       | debug_pipe id_lookalikes
@@ -34,8 +34,7 @@ filter_kws() {
     #
     # Hack out lines that look like kw expressions
     #
-    local kwbase="[a-z][a-z0-9]*"
-    grep -e "^$kwbase " -e "^$kwbase\$" \
+    grep -Ee '^[a-zA-Z]\w*\s+[^=]' -e '^[a-zA-Z]\w*$' \
         | debug_pipe kw_lookalikes
 }