Here's another one:

use Data::Dumper;
my $string = '"quoted" foo foo "joe smoe" bar baz quux "trapped inside
+ here" matrix2:reloaded sucked';
print Dumper [split /\s+("(?:[^"\\]|\\")*"|[^\s]+)(?(?!\s+")\s+)/, $st
+ring];
[download]