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