in reply to string pattern match, limited to first 1000 characters?
$string =~ /\A.{0,996}?html/si; [download]