Win8 Strawberry 5.30.3.1 (64)  Mon 05/09/2022 14:30:45
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

use JSON;
use Data::Dump qw(dd);

my $json_string = <<'EOJ';
[["urlkey","timestamp","original","mimetype","statuscode","digest","length"],
 ["org,archive)/", "19970126045828", "http://www.archive.org:80/",
  "text/html", "200", "Q4YULN754FHV2U6Q5JUT6Q2P57WEWNNY", "1415"],
 ["org,archive)/", "19971011050034", "http://www.archive.org:80/",
  "text/html", "200", "XAHDNHZ5P3GSSSNJ3DMEOJF7BMCCPZR3", "1402"],
 ["org,archive)/", "19971211122953", "http://www.archive.org:80/",
  "text/html", "200", "XAHDNHZ5P3GSSSNJ3DMEOJF7BMCCPZR3", "1405"]]
EOJ

my $ar_decoded_json = decode_json $json_string;
# dd $ar_decoded_json;  # for debug

for my $ar_jentry (@$ar_decoded_json) {  # handle each decoded JSON entry
    printf "\n'%s' '%s' '%s' '%s' '%s' '%s' '%s'", @$ar_jentry;
    }

^Z

'urlkey' 'timestamp' 'original' 'mimetype' 'statuscode' 'digest' 'length'
'org,archive)/' '19970126045828' 'http://www.archive.org:80/' 'text/html' '200' 'Q4YULN754FHV2U6Q5JU
T6Q2P57WEWNNY' '1415'
'org,archive)/' '19971011050034' 'http://www.archive.org:80/' 'text/html' '200' 'XAHDNHZ5P3GSSSNJ3DM
EOJF7BMCCPZR3' '1402'
'org,archive)/' '19971211122953' 'http://www.archive.org:80/' 'text/html' '200' 'XAHDNHZ5P3GSSSNJ3DM
EOJF7BMCCPZR3' '1405'