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