open(FILE2,"<$file2name") or die "cant open $file2name for reading!\n";

while ($A = <FILE1>)
  ($tmp,$pos)= split /\s+/, $A;
    local($/) = "";
    while (<FILE2>){
       @lines = split(/\n/,$_);
      ($posB,$posend) = findpos(@lines);
      next if $posA < $posB;
       last if $posA > $posB + $posend;
       processPara(@lines)
     }
    }
}