Select Code to Download

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