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