#!perl -wl

use strict;

my $good = <<EOT;
a quote " with some text after it and then another quote "
EOT

my $bad = <<EOT;
a quote " with some text after it but without another quote
EOT

my $obvious = qr/"(?:\\.|[^"\\]+)*"/;
my $unrolled = qr/"[^"\\]*(?:\\.[^"\\]*)*"/;

$| = 1;

print "\$good =~ \$unrolled";
print $good =~ $unrolled;
print "\$good =~ \$obvious";
print $good =~ $obvious;
print "\$bad =~ \$unrolled";
print $bad =~ $unrolled;
print "\$bad =~ \$obvious";
print $bad =~ $obvious;
print "done";