$page_data = "the cow jump over the moon";
$new = join(" ", grep { length($_) > 3} split(/\s/, $page_data));
print $new;