Help for this page

Select Code to Download

Select or download this

my @strs = qw/
    ABCBXBCA
    APCBXBCAC
...
    print "String:$_ Pattern:$patterns[$matched_pattern] KeyWord:$1\n"
        if /$all_pats/;
}