# echo "TTTATCGGTCGTTATATAGATGTTTGCA" | perl -ne ...