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

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------