my $s = q("You spin me ""around"" and ""around"", ""round"", like a record, ""round"" and ""around"".);
use Benchmark 'cmpthese';
cmpthese(-3, { 
  cut => sub { return  $s =~ /"(?>[^"]+|"")*"(?!")/ },
  straight => sub { return  $s =~ /"(?:[^"]+|"")*"(?!")/ } 
});