print/ATG((?(?!TA)...)*)/,$/for<>