#
# This program takes the original input file and creates a new
# input file by selecting those insertion site sequences whose
# insertion positions are known
#
open(DATA, "cleaned.dros");
$line = <DATA>;
while($line)
{
    if($line =~ /Unknown/)
    {
	while($line = <DATA>)
	{
	    if($line =~ />/)
	    {
		last;
	    }
	}
    }
    else
    {
	$line =~ /base (\d*)/;
	$base = $1;
	$sequence = "";
	while($line = <DATA>)
	{
	    if($line =~ />/)
	    {
		last;
	    }
	    chop($line);
	    $sequence .= $line;
	}
	print($base . " " . length($sequence) . "\n");
	print($sequence . "\n");
    }
}