print "Content-type: text/html\n\n";

$ignore = 3;

$page_data = "the cow jump over the moon";

@text = split(/\s/, $page_data); 


foreach $line (@text) {
$len = length($line);
	if($len < $ignore) {
	delete(@text[$line]);
	}
	else {
	print "$line ";
	$new_page_data = sprintf("%-5s", $line);
	}
}

print "<p>$new_page_data";