And with a regex:

$page_data = "the cow jump over the moon";
$page_data =~ s/\b\w{1,3}\b//g;
$page_data =~ s/^\s+//;
$, = ' ';
print split(/(?<=\w)\b\s*/, $page_data);
[download]