use JSON qw(-convert_blessed_universally);
my $test = qr/^[\w\@\.]+$/;
print to_json($test);