sub sterne_entferne {
    my $mit_sternen = shift;
    ( my $ohne_sterne = $mit_sternen ) =~ s/\*//g;
    return $ohne_sterne;
}