#!/usr/bin/perl -w
use strict;
use File::Temp qw(:mktemp);
my $REs = 9000;
my ($filename) = mktemp('tmpfileXXXXX');

my $lines = 0;

my $template = q{
  sub is_%s {
    my $re = qr(^%s(\\1)$);
    return shift =~ $re;
  };
};

print "Generating $REs regular expressions in $filename\n";

open FH, ">", $filename
  or die "Couldn't create $filename: $!";
for my $i (1..$REs) {
  my $name = "re_${i}_";
  my $code = sprintf $template, $name,$name;
  $lines += () = ($code =~ /\n/msg);

  printf FH $code
    or die "Couldn't write template to $filename: $!";
};
close FH;

my $start = time();
system($^X,"-w",$filename) == 0
  or die "Couldn't spawn created file $filename: $!/$?";
my $stop = time();
my $duration = $stop-$start;

print "It took me $duration seconds to parse $REs regular expressions ($lines lines)\n";