Compact multi-line inplace file edit search and replace

[GrandFather]

This performs a search and replace on a file as an inplace edit. The search string may be multiple lines long, but must be an exact match - including line end characters. This is not any sort of regex match!

my $matchBlock = do {local $/ = ""; <DATA>};

$/ = $matchBlock;
@ARGV = ("file_to_inplace_edit.txt");
$^I = '.bak';
while (<>)
  {
  my $matched = chomp;
  print $_; #print everything up to the block to be replaced

  print "This replaces the matchBlock text\n" if $matched;
  }

__DATA__
match string goes here. As long as you like
and spanning lines if you like, but it must
match exactly the text to be replaced including
the line end characters in the file to be edited
must be standard for the OS.

Update: Use chomp per tye's suggestion

[tye]

my $matched= chomp;

[chanio]

Very creative!

But I guess that you also need to list the last part of the file.

That is, like in a huge

split

, ain't me right? It looks good for raw XML replacements :) .

(updated)

Sorry, I still can't get what the my $matched= chomp; really does... I need more practice, I guess [-(.

[GrandFather]

Actually you do get the last part of the source file. If there is just one instance of the match text in the original file then the first itteration of the loop prints the part before the match and the replacement text. The second itteration prints the part of the original file following the match text, but does not insert the replacement text.