c:\@Work\Perl\monks>perl -le
"use warnings;
 use strict;
 ;;
 my $directory_name = 'foobar';
 my $dir = \"C:\Users\darkblack\Desktop\A\.$directory_name\";
 print qq{'$dir'};
"
Unrecognized escape \d passed through at -e line 1.
Unrecognized escape \D passed through at -e line 1.
Unrecognized escape \A passed through at -e line 1.
'C:SERSDARKBLACKDESKTOPA.FOOBAR'