Perhaps JSON::Syck (which uses libsyck to spit out more JSON-friendly YAML) may be more what he's looking for.

$ perl -MJSON::Syck=Dump -le 'print JSON::Syck::Dump( { a => { b => "c
+", d => [qw/1 2 3/] } } )'
{"a":{"b":"c","d":["1","2","3"]}}
[download]