/AT.((...)*?)(TA|A?$)/,print$1,$/for<>