Rate   minimal_c neg_class_c     minimal   neg_class
minimal_c    94887/s          --        -11%        -40%        -44%
neg_class_c 106974/s         13%          --        -32%        -37%
minimal     157452/s         66%         47%          --         -8%
neg_class   170558/s         80%         59%          8%          --

##</code><code>##

#!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);
}