$_="ABCDEFGFEDCBA\n"; print; print while s/(?