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