perl -wle'@list = grep defined && length, split /(?:(?<!\S)"([^"]*)"(?!\S))|\s+/, shift;print for @list' 'one "two three" four "five"'