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