while (<FILE>){
 if (/From/ .. /From/) {
 print $_;
 }
}