Re: Check last character of a string

[pjotrik]

How about testing and adding in one step?

$x =~ s/([^\\])$/$1\\/

[Anonymous Monk]

Or without a capture:

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