while ($ua->response->content =~ m/nextbut/i) {
  until ( $ua->click->is_success ) {
    warn "Submission failed: I'll sleep for a while";
    sleep 15;
    $ua->reload;
  }
  # etc., etc.
}