perl script - extracts valid dna from corrupted file