$ perl -le 'print for a .. z' | perl -ne 'if (/d/ .. /h/) { next unless //; print }} continue {' d e f g h