Select Code to Download

#!perl -w
use strict;
...
print $j->encode({foo=>qr/bar/}); 

sub Regexp::TO_JSON{qq($_[0])}"