Select Code to Download

my @strings = qw(
    aaaaa
...
        print "\t$k - " . ($string =~ /$r/ ? 'YES' : 'NO') . $/;
    }
}

aaaaa:
        alternation - YES
...
        alternation - NO
        class - NO
        lookahead - NO