my $document = do {
    local $/ = undef;
    open my $all, "<", $file
        or die "could not open $file: $!";
    <$all>;
};
my $p0 = index($all, "Paper ID Title");
if ($p0 > -1) { my $p1 = index($all, "\>", $p0);
  if ($p1 > -1) { my $p2 = index($all, "Select Reviewer(s):", $p1);
     if ($p2 > -1) { my $target = substr($all, $p1, ($p2 - $p1)); } } }
	 print "$all";
	 sleep(22);