Select Code to Download

{
  "error":{
    "type":"ServiceException",
...
    "message":"(#108) No results founds"
  }
}

my $test = eval q|{
  "error":{
    "type":"ServiceException",
...

use Data::Dumper;
print Dumper($test);