#!/usr/bin/perl -w
use strict;
use Benchmark;

my ( $re, $test );

timethese(-30, {
    regex1  => '$re = "a" . \'\d\'x500 . "a";
                $test = ("a"x2000 . "1"x499)x2 . "a" . "1"x500 . ("a"x2000 . "1"x499)x2 ;
                $test =~ /$re/o;',
    regex2  => '$re = "a" . \'\d{500}\' . "a";
                $test = ("a"x2000 . "1"x499)x2 . "a" . "1"x500 . ("a"x2000 . "1"x499)x2 ;
                $test =~ /$re/o;',
});