Select Code to Download

perl -wE"()='abcde' =~ m[(?<a>a)|(?<b>b)|(?<c>c)|(?<d>d)|(?<e>e)]g and
+ do{ say for keys %- }"
e
...
a
b
d