local $/;

my $search  = <>;
my $replace = <>;

#local $^I = '';  # No backups.
local $^I = '~';  # Make backups.
while (<>) {
   s/\Q$search/$replace/g;
   print;
}