becker -> bicker
complement -> compliment
complementary -> complimentary
empress -> impress
endorse -> indorse
enfield -> infield
enquire -> inquire
enviable -> inviable
freedman -> friedman
freeze -> frieze
kenney -> kinney
kettle -> kittle
meddle -> middle
peddle -> piddle
redden -> ridden
semper -> simper
whether -> whither

##</code><code>##

perl -E'chomp(my @w=grep /[ie]/ && length > 5, readline); for my $w (reverse @w) { say "$w ->  $_" for grep defined, @w{glob $w =~ s/e/{e,i}/r}; $w{$w}=$w }' unixdict.txt