use strict;
use warnings;
use JSON qw();

my $test = {regex => qr/^[\w\@\.]+$/, str => "this is a string"};
my $json = JSON->new();

$json->allow_blessed(1);
print $json->encode($test);