my $evalstr = <<EOEVAL;
my \@fields = (\$val =~ /\$ivalue/$modifiers);
if (\@fields)
  {
    for (\$j = 0; \$j < \@fields; \$j++)
      {	\$self->{_regex_vars}[\$c]{\$tag}[\$j+1] = \$fields[\$j] }
    1
  }
else { -1 }
EOEVAL