eval{ eval "(\$output = \$string) =~ s/\$regexp/\$new/$suffix" };