#!/usr/bin/perl -w

opendir(MDSDIR,"/mds/nvision1");
while ( $file  = readdir(MDSDIR) ) {
    if ($file =~/0000*\./) {
        print $file;
        $temp = chop($');
        print "$temp\n";
    }
}
closedir(MDSDIR);