$string =~ /(zeichenkette) \1/;