<>;<>=~/.*[AGCT]/;print$&=~y///c