The match was on the lowercase version header names but
the lowercasing happened after the header name match.
my ($fn, $fv) = ($1, $2);
$fv =~ s/\s*$//;
# pluralize tag/usertag
my ($fn, $fv) = ($1, $2);
$fv =~ s/\s*$//;
# pluralize tag/usertag
$fn = $fn.'s' if $fn =~ /^(?:tag|usertag)$/;
print {$debugfh} ">$fn|$fv|\n";
$fn = $fn.'s' if $fn =~ /^(?:tag|usertag)$/;
print {$debugfh} ">$fn|$fv|\n";
if ($fn =~ /^control$/) {
push @control_bits,$fv;
} else {
if ($fn =~ /^control$/) {
push @control_bits,$fv;
} else {