perl -ple '/^>/ or tr/ATCG/TAGC/' FILE