in reply to =~ matches non-existent symbols
perl -mcharnames -e '<> =~ m/([^atcg])/i; print charnames::viacode(ord + $1), "\n"' ATCG_FILE [download]
LINE FEED [download]