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