#$string = q{foo   bar "quoted string" baz "another quoted string"};
$string = "foo   bar \"quoted string\" baz \"another quoted string\"";

@a = map {/"/?$_:split}split(/(".*?")/, $string);

local $" = '><';

print "<@a>\n";

