my $start = 1+index $_,q(");
die "No quoted string found" unless $start;
$_ = substr $_,$start;
my $stop = index, $_, q(");
$_ = substr $_,0,$stop;