use strict;
use warnings;
local $/;
my $line = <DATA>;
print $1 if $line =~ /"(.*?)"/s;


asdfahds"dsfkjhds
sldfhads
#asdlfhasdf
"adsfaödsj
asdöf

dsfkjhds
sldfhads
#asdlfhasdf