my $raw=<IN>;
$rev= reverse $raw;
$rev=~tr/ATGCatgc/TACGtacg/;

##</code><code>##

while(@inf=<IN>)
{
 if(i%2==1)
{
$inf[i]=reverse $inf[i];
}
}