Select Code to Download

my $ndata = "\\\\MYSERVER\\C\$\\Temp";  # \\MYSERVER\C$\Temp
my $quoted_ndata = quotemeta($ndata);   # \\\\MYSERVER\\C\$\\Temp
m/$quoted_ndata/

my $ndata = "\\\\MYSERVER\\C\$\\Temp";  # \\MYSERVER\C$\Temp
m/\Q$ndata\E/

m/^\Q$ndata\E/

if ($line =~ m/^\Q$ndata\E(.*)/) {
   my $ndir = $1;
   print "$ndir\n";
}

if (index($line, $ndata) == 0) {
   my $ndir = substr($line, length($ndata));
   print "$ndir\n";
}

if (substr(my $ndir = $line, 0, length($ndata), '') eq $ndata) {
   print "$ndir\n";
}