Select Code to Download

{
package Regexp;
...

my $json = JSON->new->convert_blessed;
print $json->encode(qr/.../);