(substr $str, 0, 1000) =~ /html/i;