Select Code to Download

my $str = qq|"this is one" and "anot""her one" is "" right "her"e|;

my @stuff = map { /([^"]+)"$/ } $str =~ /"([^"]*"|[^\s"]+)/g;

print join("\n", @stuff), "\n";

this is one"
anot"
her one"
"
her"

this is one
anot
her one
her