print "Neuer Charactername: ";
chomp(my $neuer_character = <STDIN>);
open KRWL, "./krawler";
foreach (@text_krwl = <KRWL>) 
{
    $_ =~ s/^\$name = ".*";$/\$name = "$neuer_character";/;
}
open KRWL, "> ./krawler";
print KRWL (@text_krwl);