perl -ple 'if(/^>/) { ; } else { tr/ATCG/TAGC/; }' FILE