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