#!/usr/bin/perl

while(<>)
  {
    print if /^From:|^Subject:/;
    last if /^$/;  # Para con una línea en blanco
  }