Select Code to Download

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

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