$_ = 'The quick brown fox jumped over the lazy dog';
local $,=' ';
print /(\w{1,3}\b)/g,"\n";
[download]