print "Kommt mindestens zwei mal vor" if $string =~ /\b(e\d+)\1\b/i;