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