my @langs = grep {defined} split /[\s,]+/, $text;