perl -le 'print for a .. h' | perl -nle 'if (my $ff = (/d/ .. /h/)) { next unless $ff =~ /(?:^1|E0)$/; print }'
d
h

##</code><code>##

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

##</code><code>##

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