Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                $test = ("a"x2000 . "1"x499)x2 . "a" . "1"x500 . ("a"x
+2000 . "1"x499)x2 ;
                $test =~ /$re/o;',
});

Benchmark: running regex1, regex2, each for at least 30 CPU seconds...
    regex1: 31 wallclock secs (31.31 usr +  0.00 sys = 31.31 CPU) @ 65
+5.10/s (n=20508)
    regex2: 31 wallclock secs (30.84 usr +  0.00 sys = 30.84 CPU) @ 53
+0.35/s (n=16358)