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

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