Fixed translation in Perl code.