Select Code to Download

use strict;
use warnings;
...
foreach my $line($data) {
    print "$line\n";
}

my $content = `curl --silent -k -u admin:pass https://url/api/v2/GetDe
+viceInfo?$ARGV[0]`;
$content =~ tr/"/ /;
$content =~ tr/,/\n/;
print "$content\n";

"device":[{ host_info: { engine_id: null
name: null
...
remarks: null
id: 0}
...

"device": [{
       "host_info": {
...
               }
       }
               ...