Tach,
if ($text =~ /^\n/) {$text = "$text\n";} # wenn kein newline am Ende dann hinzufuegen
also ich vermeide ja normalerweise RegExps, wenn ich kann, aber für mich sieht es so aus, als matchte deine auf Texte, die mit einem Zeilenumbruch anfangen.
mfg
Woodfighter