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