use strict;
use warnings;

my $s = '"toto"';
if ($s =~ /^(?<!\\)"(((?<=\\)"|[^"])+)(?<!\\)"$/) {
  print "It matches!\n";
  print $1 . "\n";
  print $2 . "\n";
}

##</code><code>##

It matches!
toto
o