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