Select Code to Download

$ perl -wle '"a" =~ /a/; // and print for qw( a b a b a b )'
a
a
a

$ perl -le 'print for a .. z' | perl  -nle 'if (/d/ .. /h/) { print un
+less // }'
e
f
g

$ perl -le 'print for a .. z' | perl  -nle 'if (/d/ .. /h/) { next unl
+ess //; print }'
d
f
g
h

...
Matching REx "d" against "d"
...
   0 <> <f>                  |   0| 2:END(0)
Match successful!
...

$ perl -le 'print for a .. z' | perl  -ne 'if (/d/ .. /h/) { next unle
+ss //; print }} continue {'
d
...
f
g
h