Help for this page
becker -> bicker complement -> compliment ... redden -> ridden semper -> simper whether -> whither
perl -E'chomp(my @w=grep /[ie]/ && length > 5, readline); for my $w (r +everse @w) { say "$w -> $_" for grep defined, @w{glob $w =~ s/e/{e,i +}/r}; $w{$w}=$w }' unixdict.txt