Help for this page

Select Code to Download


  1. or download this
    perl -le 'print for a .. h' | perl -nle 'if (my $ff = (/d/ .. /h/)) { 
+next unless $ff =~ /(?:^1|E0)$/; print }'
d
h
  2. or download this
    perl -le 'print for a .. z' | perl  -nle 'if (/d/ .. /h/) { next unles
+s // and $_ eq $&; print; }'
d
h
  3. or download this
    perl -le 'print for a .. z' | perl  -nle 'if (/d/ .. /h/) { next unles
+s $_ eq $& and //; print; }'
d
h