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