In SA dev.:
foreach my $header ( keys %{$self->{conf}->{rewrite_header}} ) {
dbg ("Removing markup in $header");
if ($header eq 'Subject') {
my $tag = $self->{conf}->{rewrite_header}->{'Subject'};
$tag = quotemeta($tag);
$tag =~ s/_HITS_/\\d{2}\\.\\d{2}/g;
$tag =~ s/_SCORE_/\\d{2}\\.\\d{2}/g;
$tag =~ s/_REQD_/\\d{2}\\.\\d{2}/g;
1 while $hdrs =~ s/^Subject: ${tag} /Subject: /gm;
} else {
$hdrs =~ s/^(${header}: .*?)\t\([^)]\)$/$1/gm;
}
}
What is the intent of this line?
$hdrs =~ s/^(${header}: .*?)\t\([^)]\)$/$1/gm;
And should that be [^)]*? above?