my $evalstr = <<EOEVAL;
if(\$input_value =~ /\$node_regex/$node_modifiers){
    1;
}else{
    -1;
}
EOEVAL

no strict 'refs';
my $return_value = eval "no strict;$evalstr";


##</code><code>##

if($input_value =~ /$node_regex/){
    $return_value=1;
}else{
    $return_value=-1;
}