my $s = join('', (("<object>") x 160_000))
   die("Failed validation!") unless $s =~ /^(?:<object>)+$/;

##</code><code>##

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