Erstat txt

Sådan her ser min tagwall ud!!!
Jeg skal have lagt en funktion ind, som gemmer det nyeste tag i ny.txt . Hvis så der bliver skrevet et endu nyere, så erstatter den det der står i ny.txt!
Lidt alle \"Nyeste spm\" i et forum!
Hjæælp
<?
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);
}
?>