
open(FASTAQ,$ARGV[0]) or die;
my $entry="";
my $i=0;

while(my $line=<FASTAQ>){
	#We need to process a new entry
	if($i==4){
	 my ($top,$sequence,$top2,$qualsequence) = $entry =~ /^
                                                        \@?(.+?)\n
                                                        ([^\@]*?)\n
                                                        \+?(.+?)\n
                                                        (.*)\n
                                                      /xs;
	print ">$top\n";
	print $sequence."\n";
	$entry=$line;
	$i=0;
	}else{
	  $entry.=$line;
	}	
	$i++;
}
#parsing the last secuence
	 my ($top,$sequence,$top2,$qualsequence) = $entry =~ /^
                                                        \@?(.+?)\n
                                                        ([^\@]*?)\n
                                                        \+?(.+?)\n
                                                        (.*)\n
                                                      /xs;
	print ">$top\n";
	print $sequence."\n";

