Select Code to Download

# Assumes $search matches /^\w/ and /\w\z/.
next unless $language =~ /\b\Q$search\E\b/;

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

my %languages = map { $_ => 1 } split /,/, $language;
next unless $languages{$search};