nerviger zeilenumbruch

[piet]

hallo auch!
folgendes perl-script (ausschnitt) ist nicht davon abzuhalten, im fehlerfall (hier: leeres feld aus html-form) einen nervigen zeilenumbruch zu prduzieren.
ansonsten funktioniert alles bestens- fehlermeldungen gibt's auch keine, nur...

#leere felder prüfen:
my ($check);
$check= new CGI;

sub eintragen
{
        #eintrag vorbereiten
        $date=localtime();
        $betreff=param('betreff');
        $name=param('name');
        $nachricht=param('nachricht');
        $mail=param('mail');

$nachricht=~ s/(?:\015\012?|\012)/<br>/g;

$eintrag="$betreff\t $name\t $date\t $mail\t $nachricht\n";

if ($check->param('name') eq '' || param('mail') eq '' || param('betreff')       eq '' || param('nachricht') eq '')

{
                 chomp ($eintrag);
         }

#eintragen
        open (IN, ">>test.txt") || die ("Technisches Problem: $!\n");
        print IN "$eintrag";
        close IN;
}

ich dachte das prob eigentlich mit dem chomp vertilgt zu haben- irrtum.
kann wer von euch den fehler erkennen?

beste grüße
piet