UhU!!!! Max antal ord i txt!

Jeg har lige fået det her script, men jeg mangler en enkelt detalje...:
<?
if($overskrift && $navn && $besked )
{

$file = \"tagwall.txt\";
$str = \"
<u><b>$overskrift</b></u><br>
<b>$besked<b><br>
Written by: <u>$navn</u><br>
<hr color=black>
\";

$fp = fopen($file, \"r\");
$arr = file($file);
$res = implode( \"\", $arr);
$res = \"$str$res\";
fclose($fp);

$fp = fopen($file, \"w\");
fputs($fp, $res);
fclose($fp);
}

$fp2 = fopen(\"ny.txt\", \"w\");
fputs($fp2, $str);
fclose($fp2);
?>

I ny.txt må der max være... lad os sige 50 ord, hvis der er mere, så skal den skrive:...efter!!!