my ($find, $replace) = @_;
    my $content =~ s{$find}{$replace}s;

##</code><code>##

  $content =~ s/(^.*SignDataType="osv">).*((?=<\/FormSignData>).*$)/$1XXX$2/s;

##</code><code>##

   my $find = "(^.*SignDataType=\"osv\">).*((?=<\\/FormSignData>).*\$)";
   my $replace = "\$1xxx\$2";
   patch($find, $replace);

##</code><code>##

$1xxx$2