open FILE, '<', $file or die "...";
while (<FILE>) {
  print if m/interesting/;
  handle(FILE, 'that') if m/that/;
}
close FILE;