my $str = 'The quick brown fox jumped over the lazy dog';
print $1, "\n" while $str =~ /(\w\w\w)\b/g;
[download]

What should be done if tho-letter word appears?