local $/;
my $line = <DATA>;
my @matched = $line =~ /"(.*?)"/sg;
local $, = '|';
print @matched;