Select Code to Download

perl -le 'print for a .. z' | perl  -nle 'if (/d/ .. /h/) { next unles
+s "m//"; print }'

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

# The regex capture variables are only reset on the next successful ma
+tch.
# This way, Perl saves a lot of time by not affecting variables when m
+atches
...
print "No nothing\n";
print "\$1: $1\n\$2: $2\n\$3: $3\n\$&: $&\n\n";