sub substitute {
my $string = $_[0]; # geht nur so bei mir
$string =~ s/$_[1]/$_[2]/;
return ($string);
}