Select Code to Download

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

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

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

$1xxx$2