# To demonstrate this approach, let us create a matcher for
    # your example pattern:

    my $matcher = make_regex_matcher('(CX36(5|6))|(JA30[0-2])|(JA3(([2-8]\d)|(9[0-4])))|(JA5.*)|(JA6((0\d)|(1[0-3])))|(JA64[7-9])|(JA687.*)|(JA74[0-3])|(JB5.*)|(JY(((1|2)\d\d)|(3[0-3]\d)))|(JY[3-9][5-9]\d)|(JZ51(3|4)00.*)');

    # Now we can process matching candidates:

    print "Matches:$/";
    do_work($matcher);

    # And we can process non-matching candidates without
    # having to change a line of worker code:

    print "$/Non-matches:$/";
    do_work(invert_regex_matcher($matcher));


    ### OUTPUT:
    ###
    ### Matches:
    ### CX365-CX366
    ### JA300-JA302
    ### JA320-JA394
    ### 
    ### Non-matches:
    ### I do not match!
    ### Nor do I match, my non-matching brother!



    __DATA__
    CX365-CX366
    I do not match!
    JA300-JA302
    Nor do I match, my non-matching brother!
    JA320-JA394