#!/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 =~ /$pat/){
                        print "String:$string Pattern:$pat KeyWord:$` \n";;
                        last;
                }
 
        }
}