open (file.....)
while (<FILE>) {
   if /blah/ {
       $_ = <FILE>;