Select Code to Download

my @matches = $word =~ /^(\w)([^$1])($2)([^$1$2$3])([^$1$2$3$4])([^$1$
+2$3$4$5])/;
print $word if @matches == 6; # or length $word, whatever.