#!/usr/local/bin/perl -w
use strict;
my $str1 = 'ABCBXBCA';
my $str2 = 'APCBXBCAC';
my $patterns = 'B.B|CB';
foreach my $string ($str1,$str2){
#        foreach my $pat (@patterns){
                if($string =~ /$patterns/){
                        print "String:$string Pattern:$patterns KeyWord:$` \n";;
#                        last;
                }

#        }
}
__DATA__
#ouptut
C:\test>180890
String:ABCBXBCA Pattern:B.B|CB KeyWord:A
String:APCBXBCAC Pattern:B.B|CB KeyWord:AP

C:\test>

##</code><code>##

#!/usr/local/bin/perl -w
use strict;
my $str1 = 'ABCBXBCA';
my $str2 = 'APCBXBCAC';
my $patterns = 'B.B|CB';
foreach my $string ($str1,$str2){
#        foreach my $pat (@patterns){
                if($string =~ /($patterns)/) {
                        print "String:$string Pattern:$+ KeyWord:$` \n";;
#                        last;
                }

#        }
}
__DATA__
#output
C:\test>180890
String:ABCBXBCA Pattern:BCB KeyWord:A
String:APCBXBCAC Pattern:CB KeyWord:AP

C:\test>