for my $field (@fields) {
            $re .= qr/(?<$field>$field\s*)/;
        }