#! /usr/bin/perl
use warnings;
use strict;
use JSON::XS;

my $json = JSON::XS->new->convert_blessed;
sub Regexp::TO_JSON { "" . shift }

my $re = qr/^-{1,}\z/;
print $json->encode([$re]), "\n";