#!perl -p0160
$_=($",A..Z)[$.%27]x y;o;