my $zeichen = ";[*];";