my $micro = 'micro.txt';
open(IN, $micro) or die "Can't open file $micro because $!\n";
while(my $line=<IN>)
	{
	if ($line=~/>/)
		{
		chomp($line);
		$line=~s/>//;
		my $sequence=<IN>;
		chomp($sequence);
	}
close(IN);