Select Code to Download

#!/usr/bin/perl
my $s = "<object>" x 1600_000; #made higher to be sure
die("Failed validation!") unless $s =~ /^(?:<object>)+$/;
print "ok\n";