#!/usr/bin/perl -nl
if (length == 8) {
  $c = substr ($_, 2, 1);
  if (substr ($_, 5, 1) eq $c) {
    my %h;
    @h{split//,$_} = (1) x 8;
    print if keys %h == 7; 
  }
}
__END__
perl match.pl /usr/share/dict/words
Abednego
abscised
Acadians
Acadia's
Acalia's
acerbest
Adaiha's
Adalia's
Adelbert

...

whirling
whisking
Wieche's
wielders
Winton's
worker's
writhing
Yahweh's
Yeargain
Ygerne's
Yorker's
Zarger's
Ziegfeld