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