Select Code to Download

my $evalstr = <<EOEVAL;
if(\$input_value =~ /\$node_regex/$node_modifiers){
...
no strict 'refs';
my $return_value = eval "no strict;$evalstr";

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