opendir(DIR,"/users/temp/test1");
while(defined (my $line = readdir(DIR))){
        next if ($line =~ /^\./);
        .
        .
        chomp $line;
        @filedata = split /!/, $line;
        .
        .
}
closedir (DIR);