Select Code to Download

use strict;
use warnings;
...

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

{"str":"this is a string","regex":null}

use strict;
use warnings;
...
my ($secondWord) = $andBack->{str} =~ $andBack->{regex};

print "Second word is: $secondWord\n";

YAML: ---
regex: !!perl/regexp (?-xism:\w+\W+(\w+))
str: this is a string

Second word is: is