let eval_stdin_replace () = 
  let dl, dr = Str.quote !_delil, Str.quote  !_delir in
  toggle _sl;
  try while true do
    let s = read_line () in pl (seek_and_replace dl dr s)
  done with End_of_file -> pe eof_str