my @array = qw(foo bar biz);

# Want to match any in the list;
my $list = join '|', map {quotemeta} @array;

while ($data =~ /($list)/) {