$zeile =~ s/([a-z]{2})/($1)/gi;