$nb = preg_match("\".{1,}dtd\"",$str,$tmp);
print le perl sapue