Select Code to Download

  my $forward = ($backward?$f:$t);
  my $r0 = $doc->Range({Start=>$rs,End=>$re});
...
  if ((!$find_r->Found) || $r0->{Start}>=$re || $r0->{End}<=$rs) {
    return @r;
  }