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