#!/usr/bin/perl
use strict;
use warnings;

my $s = '\s';
$s =~ #\\#\\\\#, $s;

print "$s";