my ($find, $replace) = @_; my $content =~ s{$find}{$replace}s; #### $content =~ s/(^.*SignDataType="osv">).*((?=<\/FormSignData>).*$)/$1XXX$2/s; #### my $find = "(^.*SignDataType=\"osv\">).*((?=<\\/FormSignData>).*\$)"; my $replace = "\$1xxx\$2"; patch($find, $replace); #### $1xxx$2
## $content =~ s/(^.*SignDataType="osv">).*((?=<\/FormSignData>).*$)/$1XXX$2/s; ##
## my $find = "(^.*SignDataType=\"osv\">).*((?=<\\/FormSignData>).*\$)"; my $replace = "\$1xxx\$2"; patch($find, $replace); ##
## $1xxx$2