my $str = pop; ## Ripped from Ingy's pegex-json-pm Pegex::JSON::Data ## Unicode support not implemented yet but available in Pegex::JSON::Data my %escapes = ( '"' => '"',