for my $c ( 'a'..'z') {
    next unless ($c =~ /[d-h]/); say $& if $&;
}