{
package Regexp;
sub TO_JSON {
  my $regex = shift;
  $regex = "$regex";
  return $regex;
}

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