#!perl -w

use strict;

use Benchmark;

Benchmark->import(qw/cmpthese/) if $^V;

my $time = shift || 10;
my $len  = shift || 1000;

my $abc = 'abc' x $len;

my $str = '$abc"$abc"$abc';

my %bms = (
           minimal     => sub { $str =~ /".*?"/ },
           neg_class   => sub { $str =~ /"[^\"]*"/ },
           minimal_c   => sub { $str =~ /"(.*?)"/ },
           neg_class_c => sub { $str =~ /"([^\"]*)"/ },
          );

if ($^V) {
  cmpthese(-$time, \%bms);
} else {
  timethese(-$time, \%bms);
}