Now I was able to run it:

Based on Re^5: Parsing Array of arrays from json file this seems to "work":

(FWIW I'm not happy with the code though, YMMV)

use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;
use JSON::PP;


my $ua = LWP::UserAgent->new( );
$ua->agent("Mozilla");
my $segment = "Science | Research | Artificial Intelligence";

my $url='https://translate.googleapis.com/translate_a/single?client=gt
+x&sl=en&tl=fr&dt=t&q=' . $segment;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

if ($res->is_success) {
    my $json_text= $res->content;
    #warn Dumper
    my $decoded_json = decode_json( $json_text );

    my @decoded_json=@$decoded_json;

    my @records = @{$decoded_json[0]};  # <-- fixed derefrencing

    #warn Dumper \@records;

    foreach my $record (@records) {
        print Dumper $record;
        print "Translation for @$record[1] is @$record[0]\n";
    }
} else {
    print "\nError connecting to server\n";
}

[download]

OUTPUT

-*- mode: compilation; default-directory: "d:/tmp/pm/" -*-
Compilation started at Sun Sep 12 12:57:45

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/google_translate.pl 
$VAR1 = [
          'Sciences | ',
          'Science |',
          undef,
          undef,
          3,
          undef,
          undef,
          [
            []
          ],
          [
            [
              [
                'f1ddc8227c19e618ac5e77c96270b0d5',
                'en_fr_2021q1.md'
              ]
            ]
          ]
        ];
Translation for Science | is Sciences | 
$VAR1 = [
          'Recherche | ',
          'Research |',
          undef,
          undef,
          3,
          undef,
          undef,
          [
            []
          ],
          [
            [
              [
                'f1ddc8227c19e618ac5e77c96270b0d5',
                'en_fr_2021q1.md'
              ]
            ]
          ]
        ];
Translation for Research | is Recherche | 
$VAR1 = [
          'Intelligence artificielle',
          'Artificial Intelligence',
          undef,
          undef,
          1
        ];
Translation for Artificial Intelligence is Intelligence artificielle

Compilation finished at Sun Sep 12 12:57:47

[download]

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

In reply to Re^5: Parsing Array of arrays from json file by LanX
in thread Parsing Array of arrays from json file by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.