$zeile =~ s/([A-Z]{2})/($1)/g;