perl -mcharnames -e '<> =~ m/([^atcg])/i; print charnames::viacode(ord $1), "\n"' ATCG_FILE

##</code><code>##

LINE FEED