$ cat > fred
$x = 'one_dir\two_dir';
$y = "one_dir\two_dir";
$ perl -MO=Deparse fred
$x = 'one_dir\\two_dir';
$y = "one_dir\two_dir";
fred syntax OK