$string =~ /(.{$n}).*\1.*\1/;