Select Code to Download

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

while(@inf=<IN>)
{
...
$inf[i]=reverse $inf[i];
}
}