my $data = "greeting";

$data =~ s{greeting}
          {my $repl = <<"END_OF_STR";
hello
world
END_OF_STR
           "$repl goodbye mars"
	      }e;