in reply to Using eval, but always undef?

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);'
syntax error at (eval 1) line 2, near ""error":" $VAR1 = undef;