- s/\A\h*// unless $opt{unmodified};
- my $valnum = s/$valmatch/\n/ && $1;
- push @values, $valnum;
- push @order, $valnum if length $valnum;
+ my $valnum;
+ if ($opt{count}) {
+ ($valnum) = m/$opt{anchor} (\S*)/;
+ $valnum //= '';
+ $uniq{$valnum}++ and next;
+ push @values, $valnum;
+ s/\A/\n /;
+ }
+ else {
+ s/\A\h*// unless $opt{unmodified};
+ $valnum = s/$valmatch/\n/ && $1;
+ push @values, $valnum;
+ push @order, $valnum if length $valnum;
+ }
+