use DBI;
use strict;

my $ndata = "\\\\MYSERVER\\C\$\\Temp";

my $line; my $ndir;
my $dblist = `dir $ndata /s`;
my @dbline = split /\n/, $dblist;

foreach $line (@dbline) {
#    if ($line =~ m/(??{$ndata})/) { # don't work
#    if ($line =~ m/$ndata/) {		 # don't work
    if ($line =~ m/\\\\MYSERVER\\C\$\\Temp/) { # works BUT I want to use $var !!!
        $ndir = $';
        print "$ndir\n";
    }
}