or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"for my $sr ('k\s', 'k\\s', 'k\\\\s', qr{ k \\ s }xms, qr{k\\s}xms) {
...
'remove back\slash' 'k\\s' -> 'remove bacxxlash'
'remove back\slash' (?^msx: k \\ s ) -> 'remove bacxxlash'
'remove back\slash' (?^msx:k\\s) -> 'remove bacxxlash'