open HANDLE, "some_script |";
push @INPUT, *HANDLE;
while (<@INPUT>) {
  if ($some_condition) {
    open HANDLE, "some_other_script |";
    push @INPUT, *HANDLE;
  }
  do_something_with_input();
}