my $re_langs = sprintf '(?:%s)', join '|', keys %validLanguages;