#!perl -p
s/.*?ATG|.*//;s/TA.*|AAA\KA//