#!/usr/bin/perl

open(OUT1,">seqfile1_lc.out");
open(OUT2,">seqfile2_uc.out");

opendir(DIR,"/home/user/Desktop/resultfolder");
while(($filename=readdir(DIR))) {
open(FILE,"/home/user/Desktop/resultfolder/$filename");
while(<FILE>){
	if($_ =~ m/^>/) && $_=~m/GENSCAN_predicted_CDS/ || $_=~m/GENSCAN_predicted_peptide/) {
		push(@seq,$seq) if $seq;
		$seq=();
		push(@seq,"\n$_");
	} else {
		$_ =~ s/\s*$//;
		$seq = $seq."$_";
	}
	}
}
push(@seq,$seq);

while($_= shift @seq){
	if($_ =~ m/^>/) && $_=~m/GENSCAN_predicted_CDS/ ){
	$header=$_;
	$seq=shift @seq;
	print OUT1 $header;
	print OUT1 $seq;
	}
	if($_ =~ m/^>/) && $_=~m/GENSCAN_predicted_peptide/ ){
	$header=$_;
	$seq=shift @seq;
	print OUT2 $header;
	print OUT2 $seq;


	}
}