open(IN,"100.fastq");
open(OUT,">100-out.fastq");
while($raw=<IN>)
{
	print $raw;
	$raw=~s/\n|\r//g;
	@inf=split(//,$raw);
	for($i=0;$i<scalar(@inf)-15;$i++)
	{
		print  $inf[$i];
	}
	print  "\n";
<>;
}


 close (OUT);

close(IN);