perl -le 'print for a .. z' | perl -nle 'if (/d/ .. /h/) { next unless $_ eq $& and //; print; }' d h