(my $json = JSON->new->encode(\%data)) =~ s{\/}{\\\/}g;