$ perl -e '$s = join("", (("<object>") x 160_000)); print "ok\n" if $s =~ /^(?:<object>)+$/'
   ok