#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use JSON 2.59;

my %var = (
	regex => qr{[^a-z]}i,
);
print 'Test '.('FOO1' =~ $var{regex} ? 'erfolgreich' : 'fehlgeschlagen')."\n";
my $json_obj = JSON->new->latin1;
$json_obj->convert_blessed(0);
my $json = $json_obj->encode(\%var);