use JSON qw/ to_json /;
my @fudge = "\/Date(<epoch>)\/";
print to_json( \@fudge );
__END__
["/Date(<epoch>)/"]