my $test = eval q|{
  "error":{
    "type":"ServiceException",
    "code":108,
    "message":"(#108) No results founds"
  }
}|;

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