sub substitute{
# ---- usage
# my @substitutedFile = substitute( @contentToSubstitute ); # substitute-keywords must be added to %subs (global %hash)
    my @err = ();                                                               # array für fehler
    my @file = @_;
    foreach my $eintrag( @file ){
        if( $eintrag =~ /\%\%(.*)\%\%/ ){
            my $keyword = $1;
            unless( exists $subs{$keyword} ){ push @err, "Wert nicht gesetzt: $keyword\n"; $subs{$keyword} = ""; }
            unless( $eintrag =~ s/$&/$subs{$keyword}/g ){ print STDERR "Fehler beim ersetzen!\n"; }
            print STDERR "ersetzte: $& mit $eintrag\n";
        }
    }
    print STDERR @err;
    return @file;
} #substitute