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