--- a/scowl/src/add-affixes 2017-09-25 11:58:46.898706402 +0100 +++ b/scowl/src/add-affixes 2017-09-25 11:59:46.952904766 +0100 @@ -72,7 +72,7 @@ next unless $q eq '' || $use_all >= 2; my @a = split /, | \| /, $a; @a = grep {my ($word,$tags,$level) - = /^([A-Za-z\']+)([~= 3; # insert placeholder @a = (); foreach (@a0) { - s/ {.+?}//g; s/ \(.+?\)//g; + s/ \{.+?\}//g; s/ \(.+?\)//g; s/ \| / /g; s/ \/ / /g; push @a, (split / /, $_); }