my $dir = q{\\\\dfsshare\foo\bar};
            ^ ^