foreach my $file ( grep{/\.seq$/ && -f "$dir/$_"}readdir DIR) [download]
In reply to Re^4: Writing to file... by toolic in thread Writing to file... by perl_n00b