perl -e 'my $test; eval q|$test = {
  "error":{
    "type":"ServiceException",
    "code":108,
    "message":"(#108) No results founds"
  }
}|;
print "$@\n";
use Data::Dumper;
print Dumper($test);'
##</code><code>##

syntax error at (eval 1) line 2, near ""error":"

$VAR1 = undef;