my @lines = grep { /^(From|To):/ } <FILE>;