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