use warnings;
use strict;

my $data = do { local $/; <DATA> };

my @strings = $data =~ /\"([^\"]*)\"/g;
   
print map{"<$_>\n"}@strings;

=Prints
<hello>
<bar>
<hello>
<world>
<bar>
<baz>
<>
<>
<example 1 for instance>

=cut

__DATA__
nothing
"hello"
foo "bar" quz
"hello" "world"
foo "bar" quz "baz" blah
""
blah "" blah
nothing
"example 1 for instance"