Select Code to Download

$_=q;
&u&J&t&s;
...
$_.=qq.CHARKE\.
.;s/([A-Z])([A-Z])([A-Z])/\L$2$3$1\E/g
;s@\n@@g;$_.=$/;print;