perl -wMstrict -le
"for (@ARGV) {
  print;
  s{ (?<! \\) $ }'\\'xms;
  print
  }
" with\ sans
with\
with\
sans
sans\