my $s = "\\s"; print $s;