Select Code to Download

$ perl -wE '$data = [{"data" => "foo"}]; say @$data[0]->{"data"}'
foo

$$data[0]{"data"}