my @languages = split /,/, $language;
next unless grep $_ eq $search, @languages;