Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $decoded = decode('UTF-8', $utf8{$language});
    say join ', ', $language, length $decoded, $decoded;
}