open(FOUND, "+<found");
 $first_line = <FOUND>;
    $tmp = length $str;
    $tmp = $tmp +1;
    $linetmp = substr($first_line, $tmp);
    print FOUND $linetmp;