s#A*#AA.(65+5*y/@-Y/A-Z/)#e,print,s// = @/for($/)x11