my @fields = qw/From: Subject:/;  # you can add more if/when you want
my $field_regex = join( "|", map { quotemeta($_) } @fields );