c:\@Work\Perl\monks>perl -wMstrict -le
"use List::MoreUtils qw(any);
 ;;
 my $match = 'Ba';
 my @array = ('Ba Ba Black Sheep');
 ;;
 print 'exact match?' if any { /\b$match\b/ } @array;
"
exact match?