my $LastEditToken = undef;

  my $body = $response->content();
  if ($body =~ /value="([0-9a-z\+\\]+)"\s+name="editToken"/)
  {
    $LastEditToken = $1;
    print "found token=$LastEditToken\n";
  }