print "Neuer Charactername: ";
chomp(my $neuer_character = <STDIN>);
substr($name, 0) = $neuer_character; ### OB das wohl geht?!
open KRWL, "./krawler";
foreach (@text_krwl = <KRWL>) 
        {
	$_ =~ s/^\$name = ".*";$/\$name = "$neuer_character";/;
	}
	open KRWL, "> ./krawler";
	print KRWL (@text_krwl);