perl -ple 'tr/ATCG/TAGC/ unless( /^>/ );' FILE