use strict;
use CGI;
my $cgi=new CGI;

my $text=$cgi->param("textarea");
my $text=~s/<br>/\n/g;
open(DATEI, "> $datei");
      print DATEI $text;
close(DATEI);